ProgressBar in StatusBar

[thepaul]

Hi,

wie kann ich einen ProgressBar in einem StatusBar anzeigen lassen?

Danke für die Antworten

Paul

[Bernhard Geyer]

Wie wäre es wenn Du die Suche bemühen würdest.
Eine fast identische Frage wurde schon mal gestellt.

[schuetze09]

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]

danke

ich hatte eigentlich gesucht.