Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Zeit in StatusBar??


Michi_Mueller - So 03.11.02 19:33
Titel: Zeit in StatusBar??
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


Delete - So 03.11.02 19:45

Schon die TTimer-Komponente gefunden? :roll:


Tino - So 03.11.02 19:45

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 - Mo 04.11.02 09:54

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:

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.


Michi_Mueller - Mo 04.11.02 18:08

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

Aber trotzdem Danke!


Delete - Mo 04.11.02 20:25

Einfachher geht es nicht.


kiwicht - Fr 17.01.03 11:32

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


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: :wink: