Может я не правильно вопрос задал..
В общем например такой код
Код:
var
Form2: TForm2;
MyTimer: array[0..2] of TTimer;
Second1,Second2:integer;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
MyTimer[0]:=TTimer.Create(Self);
MyTimer[1]:=TTimer.Create(Self);
MyTimer[0].OnTimer:=StartTimer;
MyTimer[1].OnTimer:=StartTimer;
MyTimer[0].Tag:=0;
MyTimer[1].Tag:=1;
MyTimer[0].Interval:=1000;
MyTimer[1].Interval:=1000;
MyTimer[0].Enabled:=True;
MyTimer[1].Enabled:=True;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Second1:=0;
Second2:=0;
end;
procedure TForm2.StartTimer(Sender: TObject);
begin
case (Sender as TTimer).Tag of
0: begin
Second1:=Second1+1;
Label1.Caption:=IntToStr(Second1)
end;
1: begin
Second2:=Second2+1;
Label2.Caption:=IntToStr(Second2)
end;
end;
end;
Получается так что, только в label1 идет отсчет времени.. Что не так?