دمج المكون ProgressBar في المكون StatusBar

[delphi4ever]

السلام عليكم ورحمة الله

هذا مثال بسيط زمهم جدا حول دمج المكون ProgressBar داخل إحدى خانات المكون StatusBar
وهذا كما يلي:

في الأول نقوم بوضع كل من المكون StatusBar و ProgressBar
ثم نقوم بإنشاء خانات في المكون StatusBar أي StatusPanel
ثم نقوم بكتابة الكود التالي:

كود :

procedure TForm1.FormCreate(Sender: TObject);
begin
  with ProgressBar1 do
  begin
    Parent := StatusBar1;
    Position := 100;
    Top := 2;
    Left := 0;
    Height := StatusBar1.Height - Top;
    Width := StatusBar1.Panels[0].Width - Left;
  end;
end;

وبالتوفيق للجمـــــــــــيع