+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : البيئات التطويرية ولغات البرمجة (http://vb4arb.com/vb/forumdisplay.php?fid=81)
+--- قسم : البيئات التطويرية للغات البرمجة (http://vb4arb.com/vb/forumdisplay.php?fid=82)
+---- قسم : Lazarus / Free Pascal (http://vb4arb.com/vb/forumdisplay.php?fid=191)
+---- الموضوع : برنامج - الـ ProgressBar (/showthread.php?tid=12797)
برنامج - الـ ProgressBar - أبوبكر سويدان - 23-07-15
السلام عليكم ورحمة الله وبركاته
درس سريع حول الـ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]
RE: برنامج - الـ ProgressBar - abulayth - 23-07-15
بار ك الله فيك
الى الامام
يعطيك العافية
RE: برنامج - الـ ProgressBar - Amir_Alzubidy - 23-07-15
الحقيقة هذا اللي انتظرته منك يا ابو بكر
راااائع
يعني مثلا اردنا اظهار شاشة الفورم رقم 2 بعد انتهاء البروقريس على 99% من خلال تايمر
ارجو المسااعدة في ذلك
RE: برنامج - الـ ProgressBar - العيد1403 - 11-02-16
شكرا وبارك الله فيك