نصب ProgressBar روی StatusBar در دلفی - تالار گفتمان آذر فروم





فروش فوری انجمن آذر فروم با 1 گیگ هاست نامحدود به قیمت مناسب
جهت خرید با شماره 09363810642 تماس حاصل فرمایید.

 

نصب ProgressBar روی StatusBar در دلفی
زمان کنونی: 06-04-1396،10:56 ب.ظ
کاربران در حال بازدید این موضوع: 1 مهمان
نویسنده: Friga
آخرین ارسال: Friga
پاسخ: 1
بازدید: 281

 
 
رتبه موضوع:
  • 0 رای - 0 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5

موضوع: نصب ProgressBar روی StatusBar در دلفی
ارسال: #1
نصب ProgressBar روی StatusBar در دلفی
پست‌ها: 11,943
تاریخ عضویت: 20 اردیبهشت 1390
اعتبار: 288
حالت من: Shad
انجام این کار بسیار ساده است. برای این کار کافی است بر روی فرم خود یک StatusBar اضافه نمایید حالا در قسمت تعاریف متغیر های عمومی کد زیر را بنویسید:

ProgressBar1: TprogressBar;

در ادامه دستورات زیر را در خاصیت OnCreate فرم خود بنویسید:

var
ProgressBarStyle: LongInt;

begin

{create a run progress bar in the status bar{

ProgressBar1 := TProgressBar.Create(StatusBar1);

ProgressBar1.Parent := StatusBar1;

{remove progress bar border
{
ProgressBarStyle := GetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE);

ProgressBarStyle := ProgressBarStyle - WS_EX_STATICEDGE;

SetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE, ProgressBarStyle);

{set progress bar position and size - put in Panel[2] }

ProgressBar1.Left := StatusBar1.Panels.Items[0].Width
+
StatusBar1.Panels.Items[1].Width + 4;

ProgressBar1.Top := 4;

ProgressBar1.Height := StatusBar1.Height - 6;

ProgressBar1.Width := StatusBar1.Panels.Items[2].Width - 6;

{set range and initial state{

ProgressBar1.Min := 0;

ProgressBar1.Max := 100;

ProgressBar1.Step := 1;

ProgressBar1.Position := 0;

end;


حالا برای آنکه پس از خارج شدن از فرم حافظه اشغال شده آزاد گردد، در قسمت OnDestroy در Event فرمتان دستور زیر را اضافه نمایید:

ProgressBar1.free
















دورمچم به جای ساعت یکنوار مشکی بستم
تا همه بفهمن من از همه هر چه زمانو متعلق به زمان است بیزارم
من هم روزی قلبی داشتم
که توسط مردمانی ازمیان شما شکست و شکست تا سنگی شد
واکنون روزگاریست که شیطان فریاد میزند..
انسان پیدا کنید سجده خواهم کرد...


=====ஜ۩۞۩ஜ=====

18-05-1391 12:49 ق.ظ
 


موضوعات مشابه ...
موضوع: نویسنده پاسخ: بازدید: آخرین ارسال
  محدودکردن تغییر اندازه فرم در دلفی Friga 0 327 18-05-1391 12:57 ق.ظ
آخرین ارسال: Friga
  استفاده از DLL‌ها در دلفی Friga 1 261 18-05-1391 12:57 ق.ظ
آخرین ارسال: Friga
  نمایش میزان کپی شدن فایل با ProgressBar در دلفی Friga 1 364 18-05-1391 12:54 ق.ظ
آخرین ارسال: Friga
  تاریخچه زبان دلفی Friga 6 551 18-05-1391 12:52 ق.ظ
آخرین ارسال: Friga
  ساخت یک بانک اکسس در دلفی Friga 0 352 18-05-1391 12:46 ق.ظ
آخرین ارسال: Friga

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان