03.05.2010, 01:49
|
|
Участник форума
Регистрация: 11.07.2009
Сообщений: 175
С нами:
8860159
Репутация:
185
|
|
Код:
Глобально: var sec : Integer;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
sec := sec+1;
Label1.caption:=IntToStr(sec);
end;
Перед этим нужно задать значение sec = 0;
В FormCreate например. |
|
|