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. :wall:

Wie ists richtig? :cheers:

[Interceptor]

Probiers mal umgekehrt:

Delphi-Quellcode:

Statusbar1.Panels[0] := label1.caption;

[Matze]

Teste mal das hier:

Delphi-Quellcode:

StatusBar1.Panels[0].Text;

[TeronG]

so

Delphi-Quellcode:

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

bzw. so

Delphi-Quellcode:

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

[robinWie]

Mach doch einfach so

Delphi-Quellcode:

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

[TeronG]

Zitat:

Zitat von robinWie

Mach doch einfach so

Delphi-Quellcode:

 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 ;)

Delphi-Quellcode:

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:

Zitat von MiniKeks

Delphi-Quellcode:

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