Guck mal ob du was damit anfangen kannst.
Delphi-Quellcode:
private
FStartTime: TDateTime;
public
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FStartTime := Now;
end;
procedure TForm1.Timer1Timer(sender: TObject);
begin
Label1.Caption := FormatDateTime('HH:NN', Now - FStartTime);
end;
{Im OnCreate/OnShow Event des Forms wird die aktuelle Zeit/Datum in FStartTime gespeichert. Zur Anzeige der vergangenen Zeit muss dann nur noch von der aktuellen zeit (Now) die Startzeit des Forms subtrahiert werden.}