Delphi Uhrzeit in Label - Paules-PC-Forum.de

JPP · 29.10.2007, 16:57

Hallo,
Ich möchte eine Uhrzeit in einem Delphi-Projekt einfügen.
Ich schaffe es ja, dass die Uhrzeit beim Öffnen der Exe angezeigt wird.
Allerdings steht die Zeit dann. Und ich möchte, dass sie immer weiter läuft.
Wie geht das?

PS: Ich bin noch Anfänger

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := TimeToStr (time);
end;

Das ist das, was ich habe.

Grandhanate · 10.11.2007, 14:39

Hallo,

um die Zeit forlaufend anzuzeigen benötigst du einen Timer. Den solltest du unter der Registerkarte "System" finden. Einen solchen Timer plazierst du auf deinem Formular und machst einen Doppelklick drauf. In die Prozedur gehört dann folgendes:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := TimeToStr(Now);
end;

Gruß Grandhanate

JPP · 10.11.2007, 16:55

Aber das Caption bei FormCreate stehen lassen?

Grandhanate · 10.11.2007, 17:10

Du kannst diese Zeile zusätzlich noch in die FormCreate reinschreiben:

Code:

Label1.Caption := TimeToStr(Now);

Ansonsten wird die Zeit erst nach dem ersten Intervall Durchlauf angezeigt.

29.10.2007, 16:57	#1 (Direktlink)
JPP Weiß worum´s geht Registriert seit: 09.04.2006 Ort: Rodgau Beiträge: 200	Delphi Uhrzeit in Label Hallo, Ich möchte eine Uhrzeit in einem Delphi-Projekt einfügen. Ich schaffe es ja, dass die Uhrzeit beim Öffnen der Exe angezeigt wird. Allerdings steht die Zeit dann. Und ich möchte, dass sie immer weiter läuft. Wie geht das? PS: Ich bin noch Anfänger Code: procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption := TimeToStr (time); end; Das ist das, was ich habe. __________________ Treffen sich 2, einer kommt nicht

10.11.2007, 14:39	#2 (Direktlink)
Grandhanate Ist öfter hier Registriert seit: 10.11.2007 Beiträge: 94	Hallo, um die Zeit forlaufend anzuzeigen benötigst du einen Timer. Den solltest du unter der Registerkarte "System" finden. Einen solchen Timer plazierst du auf deinem Formular und machst einen Doppelklick drauf. In die Prozedur gehört dann folgendes: Code: procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption := TimeToStr(Now); end; Gruß Grandhanate

10.11.2007, 16:55	#3 (Direktlink)
JPP Weiß worum´s geht Registriert seit: 09.04.2006 Ort: Rodgau Beiträge: 200	Aber das Caption bei FormCreate stehen lassen? __________________ Treffen sich 2, einer kommt nicht

10.11.2007, 17:10	#4 (Direktlink)
Grandhanate Ist öfter hier Registriert seit: 10.11.2007 Beiträge: 94	Du kannst diese Zeile zusätzlich noch in die FormCreate reinschreiben: Code: Label1.Caption := TimeToStr(Now); Ansonsten wird die Zeit erst nach dem ersten Intervall Durchlauf angezeigt.

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln