Цитата:
|
Сообщение от ~ SaM ~
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var i:byte;
begin
timer1.interval:=1000;
i:=i+1;
if i=300 then begin
application.messagebox('Время вышло!','Ошибка',0);
Timer1.Destroy;
end;
end;
|
Спасибо,смысл я понял, но как мне сделать так, чтоб таймер включался с нажатием кнопки Button1? (То есть как procedure TForm1.Timer1Timer(Sender: TObject); вставить в procedure Button1.Click(Sender: TObject); ?