آموزش برنامه نوسي دلفی- <نصب ProgressBar روی StatusBar در دلفی> قسمت هشتم

[Borna66]

نصب ProgressBar روی StatusBar در دلفی
StatusBar می باشد. انجام این کار بسیار ساده است. برای این کار کافی است بر روی فرم خود یک 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;