آموزش نصب ProgressBar روی StatusBar در دلفی

[Borna66]

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