Помощь - Поиск - Пользователи - Календарь
Полная версия: время
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
Caranthir
подскажите пжл: как выполнть операцию к примеру через 1мин, не используя Sleep или WaitForSigleObject
volvo
Таймер... Поставь на минуту, и при получении сообщения от таймера (т.е. когда минута пройдет) выполняй свою операцию...
Caranthir
а куда ставятся 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;


так никакой задержки нет unsure.gif
мисс_граффити
делая Timer1.Enabled:=что-нибудь ты только включаешь/выключаешь таймер.
а вот действие, которое тебе нужно выполнить через минуту (после чего?) как раз запихивается в обработчик TForm1.Timer1Timer
volvo
Цитата
так никакой задержки нет

А вот так - есть:
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
ага, точно, что то цикл ни к месту )))
спасиб)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.