Thema: Delphi Progressbar in Statusbar

Einzelnen Beitrag anzeigen

__patrik

Registriert seit: 8. Mai 2003
Ort: hamburg
32 Beiträge
 
Delphi 7 Professional
 
#1

Progressbar in Statusbar

  Alt 21. Mai 2003, 22:21
Moin, moin zusammen,

ich möchte eine progressbar in eine statusbar einbinden. hab diesbezüglich auch schon das netz durchwühlt und bin auf folgenden lösungsvorschlag gestoßen:
Delphi-Quellcode:
uses ..., CommCtrl, ...;
procedure TForm1.FormShow(Sender: TObject);
var r: TRect;
begin
* //Größe des 1. Panels ermitteln
* // 0 = erstes Panel der Statusbar; 1 = zweites Panel usw.
* StatusBar1.Perform(SB_GETRECT, 0, integer(@R));
* ProgressBar1.Parent := StatusBar1;
* ProgressBar1.BoundsRect := r;
end;
scheint auch zu funktionieren(zumindest kam keine gegenteilige antwort auf den post), aber wo zur h... finde ich das formShow-ereignis? hab die hilfe durchsucht und irgendwie scheint delphi für die form dieses ereignis net zu kennen habs mit onFormCreate versucht, aber da kam nix bei raus.....

HILFE!!!

mfg
patrik
[EDIT=Luckielineleinchen]Code-Tags ergänzt. Beim nächsten mal bitte selber machen. Danke.[/EDIT=Das Schweinchen.]
  Mit Zitat antworten Zitat