Цитата:
Сообщение от KeL
Что не ясного, книжку в руки и вперед
//хотя не пойму, а тебе не легче делать делай (задержку) и зициклить процес
Код:
type
TForm1 = class(TForm) //кусок из примитивной
Panel1: TPanel; //проги - секундомер,
Timer1: TTimer; //где используется таймер
......
|
Код не полный, не проинициализироан таймер.
Код:
var
Timer1 : TTimer;
q : Integer; // счетчик
procedure Init;
begin
Timer1 := TTimer.Create(nil);
Timer1.Interval := 1000; // задержка таймера 1к мс
Timer1.Enabled := False;
Timer1.OnTimer := @OnTimer; // имя процедуры, которая будет выполнятся при проходе таймера
end;
procedure Free;
begin
Timer1.Free;
end;
procedure OnTimer;
begin
// здесь код, который должен повторятся
Inc(q);
if q = 4 then // если выполнилось уже 4 раза, то останавливаем таймер
Timer1.Enabled := False;
end;
begin
if {умова запуска таймера} then
begin
Timer1.Enabled := True;
q := 0; //счетчик ставим у 0
end;
end.