подскажите пжл: как выполнть операцию к примеру через 1мин, не используя Sleep или WaitForSigleObject
volvo
18.03.2007 0:02
Таймер... Поставь на минуту, и при получении сообщения от таймера (т.е. когда минута пройдет) выполняй свою операцию...
Caranthir
18.03.2007 1:18
а куда ставятся Timer1.Enabled:=true; и Timer1.Enabled:=false; ....
procedure TForm1.Button1Click(Sender: TObject); begin while true do begin Timer1.Enabled:=true; end; end;
procedure TForm1.Timer1Timer(Sender: TObject); begin //код Timer1.Enabled:=false; end;
так никакой задержки нет
мисс_граффити
18.03.2007 1:32
делая Timer1.Enabled:=что-нибудь ты только включаешь/выключаешь таймер. а вот действие, которое тебе нужно выполнить через минуту (после чего?) как раз запихивается в обработчик TForm1.Timer1Timer
volvo
18.03.2007 1:32
Цитата
так никакой задержки нет
А вот так - есть:
procedure TForm1.Button6Click(Sender: TObject); begin Timer1.Enabled := true; end;
procedure TForm1.Timer1Timer(Sender: TObject); begin Edit1.Text := inttostr(strtoint(Edit1.Text) + 1); end;
(изначально: timer1.enabled = false, а edit1.text = '1')
Caranthir
18.03.2007 2:31
ага, точно, что то цикл ни к месту ))) спасиб)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.