|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
useshLLLinux联盟
hLLLinux联盟
CommCtrl;hLLLinux联盟
hLLLinux联盟
procedure TForm1.Button1Click(Sender: TObject);hLLLinux联盟
hLLLinux联盟
beginhLLLinux联盟
hLLLinux联盟
// Set the Background color to tealhLLLinux联盟
hLLLinux联盟
Progressbar1.Brush.Color := clTeal;hLLLinux联盟
hLLLinux联盟
// Set bar color to yellowhLLLinux联盟
hLLLinux联盟
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);hLLLinux联盟
hLLLinux联盟
end;hLLLinux联盟
hLLLinux联盟
WinXP风格进度条hLLLinux联盟
hLLLinux联盟
consthLLLinux联盟
hLLLinux联盟
{$EXTERNALSYM PBS_MARQUEE}hLLLinux联盟
hLLLinux联盟
PBS_MARQUEE = 08;hLLLinux联盟
hLLLinux联盟
hLLLinux联盟
hLLLinux联盟
procedure TForm1.FormCreate(Sender: TObject);hLLLinux联盟
hLLLinux联盟
beginhLLLinux联盟
hLLLinux联盟
SetWindowLong(ProgressBar1.Handle, GWL_STYLE,hLLLinux联盟
hLLLinux联盟
GetWindowLong(ProgressBar1.Handle, GWL_STYLE) or PBS_MARQUEE);hLLLinux联盟
hLLLinux联盟
end;hLLLinux联盟
hLLLinux联盟
//------------------------------------------------------------------------------hLLLinux联盟
hLLLinux联盟
procedure TForm1.Button1Click(Sender: TObject);hLLLinux联盟
hLLLinux联盟
varhLLLinux联盟
hLLLinux联盟
i: Integer;hLLLinux联盟
hLLLinux联盟
beginhLLLinux联盟
hLLLinux联盟
for i := 0 to 30 dohLLLinux联盟
hLLLinux联盟
beginhLLLinux联盟
hLLLinux联盟
Sleep(100);hLLLinux联盟
hLLLinux联盟
ProgressBar1.StepIt;hLLLinux联盟
hLLLinux联盟
Application.ProcessMessages;hLLLinux联盟
hLLLinux联盟
end;hLLLinux联盟
hLLLinux联盟
end;hLLLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
|
|
|
|
