delphi4arab منتديات دلفي للعرب

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

وبالتوفيق للجمـــــــــــيعSmile
جزاك الله خيرا وأطال الله عمرك
جزاك الله خيرا أخي , لكن ما معنى

with ProgressBar1 do
في الدلفي :

كود :
[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