Question

hey, what do i have to write, if i want date&time which updates itself? Label3.Caption := TimeToStr(Time) this just shows me the time, when i opened the program, but i want a time, that updates to the form every second (–> like a normal clock does).

Answer 1

1) Drop a TTimer object on your form

2) Set its ‘Interval’ propert to 1000 and its ‘Enabled’ property to true.

3) Double click on it to create an OnTimer event handler. Modify it som it looks something like this:

procedure TForm1.Timer1Timer(Sender: TObject); begin     Label3.Caption := TimeToStr(Time) end; 

And there you have it…