Управление формой

Всем доброго времени суток! Вот у меня такой проблема. Как можно сделать так, чтобы время показывалось на форме в реальном режиме, т.е. у меня время показывает, но время как первоначально было так и остается. Как можно это преобразовать? Чтобы время на форме показывало как идут секунды?procedure TForm1.FormActivate(Sender: TObject); begin label1.Caption:=timetostr(time); end;
2 ответа

Поставить на форму компонент таймер Timer1. Задать ему в свойстве Enabled значение True, а в свойстве Interval значение 1000 (что равно 1 сек), в принципе они установлены в эти значения по умолчанию. Для события OnTimer этого таймера вызвать его обработчик Timer1Timer и в нём прописать строку:
label1.Caption:=timetostr(time);


урааа спс большое