چجوری میشه برای پراگرس بار یه لیبل بزرایم که درصد پیشرفت و حرکت رو نشون بده....
Printable View
چجوری میشه برای پراگرس بار یه لیبل بزرایم که درصد پیشرفت و حرکت رو نشون بده....
با سلام. یک Tupdown به فرم اضافه کن و progressbar رو به Associate اون نسبت بده. visible رو هم برای updown به false تغییر بده و از کد زیر استفاده کن:
کد:procedure TForm1.UpDown1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
Label1.Caption:=IntToStr(ProgressBar1.Position);
end;
اگه جواب بده ممنونم
اگه جواب هم نداد بازم متشکرم
تو دلفی در samples tab (کامپوننتهای قسمت sample ) یه کنترل به اسم gauge هست که یه progree bar به همراه لیبل
موفق باشی ......
کامپوننت guage رو میدونم چیه ولی استیل برنامه به progressbar میخوره.
اون کدی هم که آقا فرهاد دادن کار نکرد!
سلام
آرش جان این کد رو توی تایمر بنویس
موفق باشیدکد:ProgressBar1.Position:=ProgressBar1.Position+1;
Label1.Caption:=inttostr(ProgressBar1.Position);
آقای DrXoX همین کد رو بالا به من داده بودن در تایمر هم گذاشتم ولی اصلا کار نکرد.
یعنی label1.caption:=inttostr(progressbar1.position);x هم عددی میده که از صد هم رد میشه.
ویرایش شد...........................................
سلامنقل قول:
این فایل رو دانلود کن ببین :10:
حجم فایل 200KB
موفق باشیدکد:http://drxox.persiangig.com/Project1.zip
دوست عزيز.
ProcessBar خيلي راحت كار انجام ميده. و اين همه دردسر نداره.
معمولا ProcessBar رو توي يك For يا Whileمينويسن كه واقعي عمل كنه.
براي مثال بعد از كپي هر ركورد يك مقدار به ProcwwsBar اصافه ميشه.
دو نكته :
1. مقدار Max اين كامپوننت رو قفبل از شروع به كارت تنظسم كن.
2. از متد StepBy استفاده كن و مقدار رشدي كه ميخواي داشته باشه رو توي اون تعيين كن.
موفق باشي.