Progressbar in Statusbar

[__patrik]

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.]

[sakura]

Einfach mal das Form auswählen und einen Doppelklick im Objekt Inspektor auf das Ereignis OnShow.

......

[Luckie]

Formular auswählen, im ObjektInspektor die Ereignisse auswählen, etwas nach unten scrollen et voila: OnShow.

[__patrik]

halleluja, der herr hatte mich mit blindheit gestraft aber nun kann ich wieder sehen

danke
patrik

[ColdFire]

währe es nicht besser ein gaug zu verwenden ???

[ShadowCaster]

Zitat:

währe es nicht besser ein gaug zu verwenden ???

Nein, das ist in der Tat nicht besser. TGauge ist sehr viel langsamer. Stell dir vor, du hast 1000000 Vorgäng und nach der Bearbeitung eines jeden Vorgangs wird TGauge neu gezeichnet. Das bring Performanceeinbussen von bis zu 70%. Bei der Progressbar wird nur dann neu gezeichnet, wenn ein Balken voll ist, das heißt, eine bestimmte Prozentzahl erreicht ist. Das kostet wesentlich weniger Performance und der Anwender wird danken