23-07-15, 01:50 PM
(آخر تعديل لهذه المشاركة : 23-07-15, 01:56 PM {2} بواسطة أبوبكر سويدان.)
السلام عليكم ورحمة الله وبركاته
درس سريع حول الـProgressBar
العمل
نفتح مشروعاً جديداً في لازاروس ، ونخزنه.
نضع على الفورم صندوق نصوص، وBrogressBar و2 Command Buttons.
نعدل الخصائص حتى نحصل على منظر مقبول.
نعدل خصائص الـProgressBar، نضع القيمة 1 في الخاصية Min، والقيمة 10 في الخاصية Max.
في حدث Activate للفورم نكتب:
في الحدث Click لزر الزيادة نكتب:
وفي حدث Click لزر الانقاص نكتب:
نشغل البرنامج ونجرب
ProgressBar.zip (الحجم : 312.67 ك ب / التحميلات : 62)
درس سريع حول الـProgressBar
العمل
نفتح مشروعاً جديداً في لازاروس ، ونخزنه.
نضع على الفورم صندوق نصوص، وBrogressBar و2 Command Buttons.
نعدل الخصائص حتى نحصل على منظر مقبول.
نعدل خصائص الـProgressBar، نضع القيمة 1 في الخاصية Min، والقيمة 10 في الخاصية Max.
في حدث Activate للفورم نكتب:
PHP كود :
procedure TfrmMain.FormActivate(Sender: TObject);
begin
txtPrgBarPosition.Text:= inttostr(PrgBar.Position);
end;
في الحدث Click لزر الزيادة نكتب:
PHP كود :
procedure TfrmMain.btnIncreaseClick(Sender: TObject);
begin
if PrgBar.Position < 10 then
begin
PrgBar.Position:= PrgBar.Position + 1;
txtPrgBarPosition.Text:= inttostr(PrgBar.Position);
end;
end;
وفي حدث Click لزر الانقاص نكتب:
PHP كود :
procedure TfrmMain.btnDecreaseClick(Sender: TObject);
begin
if PrgBar.Position > 1 then
begin
PrgBar.Position:= PrgBar.Position - 1;
txtPrgBarPosition.Text:= inttostr(PrgBar.Position);
end;
end;
نشغل البرنامج ونجرب
ProgressBar.zip (الحجم : 312.67 ك ب / التحميلات : 62)