دمج المكون ProgressBar في المكون StatusBar
#1
السلام عليكم ورحمة الله

هذا مثال بسيط زمهم جدا حول دمج المكون 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
الرد
#2
جزاك الله خيرا وأطال الله عمرك
الرد
#3
جزاك الله خيرا أخي , لكن ما معنى

with ProgressBar1 do
الرد
#4
في الدلفي :

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


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف