Statusbar/Uhrzeit einblenden

[Errraddicator]

Hiho!

Ich wollte so als Spielerei - und zum Testen - in mein Programm 2 Dinge einbauen:
- unten Rechts die aktuelle Uhrzeit
- Einen Statusbalken der wahllos durchläuft, ähnlich wie der beim Hochfahren von Windows

Jetzt habe ich das versucht über Timer zu regeln, aber das funktioniert nur, wenn mein Hauptprogramm selbst nicht wirklich beschäftigt ist.
Sobald ich die eigentliche Verarbeitung anstarte, hängen diese Timer und aktualisieren nur noch, wenn ich im Hauptprogramm selbst ein Update/ProcessMessages mache.

Dass ich das Problem via Threading lösen kann ist mir zwar klar, aber sowas "großes" wollte ich eigentlich für solche Spielereien vermeiden.
Oder komme ich da gar nich drum herum?


cu

Patrick

[Luckie]

Wenn deine Anwendung beschäfftigt ist, dann kann eben die Nachrichtenschleife nicht mehr abgearbeitet werden und somit auch keine WM_TIMER Nachrichten verarbeitet werden. Lagere also den Code, der deine Anwendung blockiert in einen Thread aus.

[taaktaak]

Zitat:

unten Rechts die aktuelle Uhrzeit

Hmmm, mache ich auch oft. Und das funktioniert mit 'nem Timer eigentlich immer. Oder willst du auch die Sekunden anzeigen? Für eine "normale" Uhrzeitanzeige genügen doch Stunden:Minuten und da müsste dein Programm aber sehr beschäftigt sein, wenn das nicht funktionieren sollte.

[BullsEye]

So kannst du die aktuelle Uhrzeit in deiner Statusleiste einblenden:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[1].Text := TimeToStr(time);
end;

Musst nur im OI halt Panels hinzufügen

[RWarnecke]

Es gibt noch eine andere Möglichkeit. Dazu brauchst Du die Komponente TJvClock von den Jedi's und eine Statusbar mit mehreren Panels. In diesem Beispiel wird die Uhr ins 3 Panel eingefügt. Diese paar Zeilen in das Ereignis FormShow und schon hast Du Deine aktuelle Uhrzeit in der Statusleiste.

Delphi-Quellcode:

  // Die Uhr in das dritte Panel setzen von der Statusbar
  Statusbar.Perform(SB_GETRECT, 2, Integer(@R));
  Clock.Parent := Statusbar; //Clock adoptieren
  Clock.Top := r.Top; //Größe der
  Clock.Left := r.Left; //Clock setzen
  Clock.Width := r.Right - r.Left; //und an Panel anpassen
  Clock.Height := r.Bottom - r.Top;

[Noedel]

Zitat von BullsEye:

So kannst du die aktuelle Uhrzeit in deiner Statusleiste einblenden:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[1].Text := TimeToStr(time);
end;

Musst nur im OI halt Panels hinzufügen

oder statusbar1.simpletext, dann hast du´s aber linksbündig

[Luckie]

Zitat von BullsEye:

So kannst du die aktuelle Uhrzeit in deiner Statusleiste einblenden:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[1].Text := TimeToStr(time);
end;

Musst nur im OI halt Panels hinzufügen

Genau das hat er wahrscheinlich gemacht und musse festellen, dass die Anzeige "hängt" wenn sein Programm beschäftigt ist und die Nachrichten aus der Nachrichtenschleife nicht abholen kann.

[Errraddicator]

Zitat von Luckie:

Genau das hat er wahrscheinlich gemacht und musse festellen, dass die Anzeige "hängt" wenn sein Programm beschäftigt ist und die Nachrichten aus der Nachrichtenschleife nicht abholen kann.

Genau.
Und deshalb war jetzt meine eigentlich Frage, ob ich das Problem auch ohne Threads lösen kann, oder nicht? *G*

Aber anscheinend nicht, so wie es aussieht. ^^

[RWarnecke]

Hallo Patrick,

hast Du meinen Beitrag #5 hier gelesen und auch mal ausprobiert ?

[Errraddicator]

Zitat von RWarnecke:

Hallo Patrick,

hast Du meinen Beitrag #5 hier gelesen und auch mal ausprobiert ?

Gelesen ja, ausprobiert nich..
Liegt einfach daran, dass ich
a) ungern Drittanbietersachen nehme, sondern sie gerne - grade wenns so kleine Sachen sind - selber programmiere
und
b) da die Uhr nur ein Beispiel für div. andere ähnliche Anwendungsgebiete ist, die ich nacher ma umsetzen möchte.

Aber trotzdem Danke!