دمج المكون 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;

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

[bilgads]

جزاك الله خيرا وأطال الله عمرك

[Delphawi]

جزاك الله خيرا أخي , لكن ما معنى

with ProgressBar1 do

[merouane]

في الدلفي :

with ProgressBar1 do
begin
Parent := StatusBar1;
Position := 100;
Top := 2;
Left := 0;
Height := StatusBar1.Height - Top;
Width := StatusBar1.Panels[0].Width - Left;
end;

مكافئة لـ :

ProgressBar1.Parent := StatusBar1;
ProgressBar1.Position := 100;
ProgressBar1.Top := 2;
ProgressBar1.Left := 0;
ProgressBar1.Height := StatusBar1.Height - Top;
ProgressBar1.Width := StatusBar1.Panels[0].Width - Left;

لكن الأولى أسرع لكتابة الشيفرة ، أسهل للقراءة وفي المستقبل للتعديل

وتستطيع اختصار (عدم إعادة كتابة) الأب والإبن للوصول للحفيد

مثال:
نستطيع أن نكتب :

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := 'Dalphi4Arab';
Label1Top := Button1.Top + Button1.Height+2;
Label1.Font.Style := [fsBold];
Label1.Font.Size := 18;
end;

أو بكل بساطة


procedure TForm1.Button1Click(Sender: TObject);
begin
with Label1, Label1.Font do
begin
// Label1 خاص بـ
Caption := 'Dalphi4Arab';
Top := Button1.Top + Button1.Height+2;
// Label1.Font خاص بـ
style := [fsBold];
size := 18;
end;
end;

وتخيل لو أردت التعامل مع جميع خصائص مكون ما في إجراء واحد

تحياتي :)