Показать сообщение отдельно
  #9  
Старый 14.12.2009, 16:41
Abrakadabra Abrakadabra вне форума
Прохожий
 
Регистрация: 14.12.2009
Сообщения: 3
Репутация: 10
По умолчанию

Может я не правильно вопрос задал..
В общем например такой код

Код:
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 идет отсчет времени.. Что не так?
Ответить с цитированием