23-07-15, 01:50 PM
السلام عليكم ورحمة الله وبركاته
درس سريع حول الـProgressBar
العمل
نفتح مشروعاً جديداً في لازاروس ، ونخزنه.
نضع على الفورم صندوق نصوص، وBrogressBar و2 Command Buttons.
نعدل الخصائص حتى نحصل على منظر مقبول.
[attachment=7475]
نعدل خصائص الـProgressBar، نضع القيمة 1 في الخاصية Min، والقيمة 10 في الخاصية Max.
في حدث Activate للفورم نكتب:
في الحدث Click لزر الزيادة نكتب:
وفي حدث Click لزر الانقاص نكتب:
نشغل البرنامج ونجرب
[attachment=7476]
درس سريع حول الـProgressBar
العمل
نفتح مشروعاً جديداً في لازاروس ، ونخزنه.
نضع على الفورم صندوق نصوص، وBrogressBar و2 Command Buttons.
نعدل الخصائص حتى نحصل على منظر مقبول.
[attachment=7475]
نعدل خصائص الـ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;
نشغل البرنامج ونجرب
[attachment=7476]