[fufic]

Как сделать чтобы при нажатии на первую кнопку выводился таймер на Label 1, а при нажатии на кнопку Button2 счетчик на Label 1 обнулялся и работал счетчик на Label2.

[poli-smen]

Сообщение от fufic

Как сделать чтобы при нажатии на первую кнопку выводился таймер на Label 1, а при нажатии на кнопку Button2 счетчик на Label 1 обнулялся и работал счетчик на Label2.

Положи на форму TTimer и добавь такие обработчики событий:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

procedure TForm1.Timer1Timer(Sender: TObject); begin   case Timer1.Tag of     1:       begin         Label1.Tag := Label1.Tag + 1;         Label1.Caption := IntToStr(Label1.Tag)       end;     2:       begin         Label2.Tag := Label2.Tag + 1;         Label2.Caption := IntToStr(Label2.Tag)       end;   end; end;   procedure TForm1.Button1Click(Sender: TObject); begin   Timer1.Enabled := False;   Timer1.Tag := 1;   Label1.Tag := 0;   Label1.Caption := '0';   Label2.Tag := 0;   Label2.Caption := '0';   Timer1.Enabled := True; end;   procedure TForm1.Button2Click(Sender: TObject); begin   Timer1.Enabled := False;   Timer1.Tag := 2;   Label1.Tag := 0;   Label1.Caption := '0';   Label2.Tag := 0;   Label2.Caption := '0';   Timer1.Enabled := True; end;

[fufic]

Спасибо, все работает