время Опции

[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; 

так никакой задержки нет

[мисс_граффити]

делая 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]

ага, точно, что то цикл ни к месту )))
спасиб)