Delphi-PRAXiS - Delphi ProgressBar in StatusBar

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi ProgressBar in StatusBar (https://www.delphipraxis.net/36920-progressbar-statusbar.html)

thepaul

28. Dez 2004 11:24

ProgressBar in StatusBar

Hi,

wie kann ich einen ProgressBar in einem StatusBar anzeigen lassen?

Danke für die Antworten

Paul

Bernhard Geyer

28. Dez 2004 11:31

Re: ProgressBar in StatusBar

Wie wäre es wenn Du die Suche bemühen würdest.
Eine fast identische

Frage wurde schon mal gestellt.

schuetze09

28. Dez 2004 11:31

Re: ProgressBar in StatusBar

Hallo,

mach das so:

Delphi-Quellcode:

			uses

  CommCtrl, Types;

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;

MfG
schuetze09

thepaul

28. Dez 2004 11:38

Re: ProgressBar in StatusBar

danke

ich hatte eigentlich gesucht. :oops:

Alle Zeitangaben in WEZ +1. Es ist jetzt 10:16 Uhr.