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

دمج المكون ProgressBar في المكون StatusBar - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : دمج المكون ProgressBar في المكون StatusBar (/showthread.php?tid=138)

دمج المكون ProgressBar في المكون StatusBar - delphi4ever - 12-04-2008

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

هذا مثال بسيط زمهم جدا حول دمج المكون 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;

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

دمج المكون ProgressBar في المكون StatusBar - bilgads - 14-04-2008

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

دمج المكون ProgressBar في المكون StatusBar - Delphawi - 16-04-2008

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

with ProgressBar1 do

دمج المكون ProgressBar في المكون StatusBar - merouane - 16-04-2008

في الدلفي :

كود :
[COLOR=Black]with ProgressBar1 do
  begin
    Parent := StatusBar1;
    Position := 100;
    Top := 2;
    Left := 0;
    Height := StatusBar1.Height - Top;
    Width := StatusBar1.Panels[0].Width - Left;
end;[/COLOR]

مكافئة لـ :

كود :
[COLOR=Black]ProgressBar1.Parent := StatusBar1;
ProgressBar1.Position := 100;
ProgressBar1.Top := 2;
ProgressBar1.Left := 0;
ProgressBar1.Height := StatusBar1.Height - Top;
ProgressBar1.Width := StatusBar1.Panels[0].Width - Left;[/COLOR]

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

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

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

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

أو بكل بساطة

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

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

تحياتي Smile