Aktuelle Uhrzeit + Datum in Statusbar[0] anzeigen.

[MiniKeks]

Hab gerade nen kleinen denkfehler:

Ich wolltes so "umleiten"^^

Zitat:

label1.caption := (FormatDateTime('',Now));
label1.caption := Statusbar1.Panels[0];

Geht aber ned

Fehler bei umwandlung.

Wie ists richtig?

[Interceptor]

Probiers mal umgekehrt:
Statusbar1.Panels[0] := label1.caption;

[Matze]

Teste mal das hier:

StatusBar1.Panels[0].Text;

[TeronG]

so

Delphi-Quellcode:

label1.caption := (FormatDateTime('',Now));
label1.caption := Statusbar1.Panels[0].Text;

bzw. so
Statusbar1.Panels[0].Text := (FormatDateTime('',Now));

[robinWie]

Mach doch einfach so
 StatusBar1.Panels[0]:=TimeToStr(Time)+' '+DateToStr(Date);

[TeronG]

Zitat von robinWie:

Mach doch einfach so
 StatusBar1.Panels[0]:=TimeToStr(Time)+' '+DateToStr(Date);

hihi ... wenigstens einer is nach mir ^^ (ps: hast .Text vergessen)

[arest]

du hast da nen kleinen fehler ;) du solltest vielleicht noch sagen, dass es der text ist, der angezeigt werden soll ;)

StatusBar1.Panels[0].Text:=DateToStr(Date)+' '+TimeToStr(Time); damit geht es... aber die sache ist ja die, er soll es sekündlich erneuern, das tut er auf diese weise nicht :( wie geht das ?

[marabu]

Wer eine ActionList auf seiner MainForm hat, der erzeugt einfach eine ClockAction und weist sie der property MainForm.Action zu.

Im event handler für OnUpdate der Action sollte dann das hier stehen:

Delphi-Quellcode:

procedure TMainForm.ClockActionUpdate(Sender: TObject);
begin
  StatusBar.Panels[0].Text := DateTimeToStr(Now);
end;

Grüße vom marabu

[ManuMF]

Zitat von MiniKeks:

label1.caption := (FormatDateTime('',Now));

Die Lösung von arest ist eigentlich ganz gut. Willst du aber das Datum nach einem festen Format ausgeben, solltest du mal die Hilfe zu FormatDateTime ansehen, die dir sagen wird, dass du Parameter für das Format angeben musst, anstatt einen leeren String zu übergeben. Dann kann ja nichts angezeigt werden

Delphi-Quellcode:

Label1.Caption := FormatDateTime('dd.mm.yyyy hh:nn:ss', Now);
// Und natürlich die Zuweisung für das StatusPanel umdrehen
StatusBar.Panels[0].Text := Label1.Caption;

Ach ja, und setz den Code oben doch einfach in onTimer eines Timers.

Gruß,
ManuMF