Zeit in StatusBar??

Michi_Mueller · Beiträge: 21

Hat jemand ne Idee, wie ich inner StatusBar die aktuelle Zeit anzeigen kann?? Die Zeit krieg ich ja aber wie kann ich es einstellen dass das Programm immer die aktuelle Zeit anzeigt?

Ciao

Ehemaliges Mitglied Erhaltene Danke: 1

Schon die TTimer-Komponente gefunden? :roll:

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Hallo,

entweder du legst einen Timer auf das Form und aktualisierst jede Sekunde den Eintrag in der Statusbar oder Du hättest benutzt das OnIdle-Event von tApplication um die Zeit in der Statusbar zu aktualisieren!

Gruß
TINO

Fasi-Monster · Beiträge: 16

hier, eine ganze Antwort (und mal nicht F1) :
(Reiter) Win32 / StatusBar einfügen
doppelt auf StatusBar und - neue einfügen //siehe unten [1]&[2]
(Reiter) System / Timer einfügen
dop. auf Timer
Dies in den Quellcode einfügen:

markieren

Quelltext

1:
2:
3:
4:

ShortDateFormat := 'dd.mm.yy'; //ist für´s Datum
StatusBar1.Panels[1].Text := TimeToStr(Date); // ist für´s Datum
LongTimeFormat := 'hh:mm';
StatusBar1.Panels[2].Text := TimeToStr(Time);

Ich denke die Funktionaltät ergibt sich aus dem Kontext

(04.11.02 08:58 Tino) Code-Tags hinzugefügt.

_________________
Da stand : Installieren sie Win98 oder besser; also installierte ich OS/2 ?!? :-)

))

Michi_Mueller · Beiträge: 21

@Luckie: Das ich das mit ner Timer Komponente machen kann war mir schon klar! Ich wollt nur ne einfachere Lösung!

Aber trotzdem Danke!

_________________
Is die Antwort Windows, wars ne dumme Frage!

Ehemaliges Mitglied Erhaltene Danke: 1

Einfachher geht es nicht.

kiwicht · Beiträge: 1021 Win 7, MacOS Delphi x, VBA, PHP, ...

auch wenns vielleicht keinen mehr interessiert.. aber ich hab mir eben den kopf darüber zerbrochen warums nit funktionieren kann, also der ordnung halber....

markieren

Quelltext

1:
2:
3:
4:
5:

ShortDateFormat := 'dd.mm.yy'; //ist für´s Datum 
StatusBar1.Panels[0].Text := DateToStr(Date); 
// muss natürlich DATETOSTR heißen, sonst zeigt er nullen an
LongTimeFormat := 'hh:mm'; 
StatusBar1.Panels[1].Text := TimeToStr(Time);

Zitat:

doppelt auf StatusBar und - neue einfügen //siehe unten [1]&[2]

sollte eigentlich [0] u. [1] heissen... sorgt sonst fuer verwirrung...

mfg
kiwicht

ps:
jaaaaaa.... ich bin ein klugscheisser, freu mich halt wenn ich auch mal was besser weiß... :roll:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme