本文整理自网络,侵删。
unit Unit9;interfaceuses System.Classes, System.SysUtils, Vcl.Controls, Vcl.Forms, Vcl.StdCtrls, Vcl.ExtCtrls, ShlObj; //ShellAPI, ObjectArray, PropSys, ExtCtrls, ImgList, DwmApi;type TForm9 = class(TForm) btnProgressbar: TButton; tmr1: TTimer; edtValue: TEdit; btnSetValue: TButton; procedure FormCreate(Sender: TObject); procedure btnProgressbarClick(Sender: TObject); procedure tmr1Timer(Sender: TObject); procedure btnSetValueClick(Sender: TObject); private { Private declarations } TBL: ITaskbarList4; I: Integer; public { Public declarations } end;var Form9: TForm9;implementationuses ComObj;//uses ActiveX, ComObj, Math;{$R *.dfm}procedure TForm9.btnSetValueClick(Sender: TObject);begin TBL.SetProgressValue(Handle, StrToIntDef(edtValue.Text, 50), 100); //设置值 和最大值end;procedure TForm9.btnProgressbarClick(Sender: TObject);begin tmr1.Enabled := not tmr1.Enabled;//定时器 end;procedure TForm9.FormCreate(Sender: TObject);begin I := 0; TBL := CreateComObject(CLSID_TaskbarList) as ITaskbarList4; //创建对象 TBL.SetProgressState(Handle, TBPF_NOPROGRESS or TBPF_INDETERMINATE); //初始化 // or TBPF_INDETERMINATEend;procedure TForm9.tmr1Timer(Sender: TObject);begin if I < 100 then Inc(I); TBL.SetProgressValue(Handle, I, 100); if I >= 100 then begin TBL.SetProgressState(Handle, TBPF_NOPROGRESS); tmr1.Enabled := False; I := 0; end;end;end.
相关阅读 >>
Delphi string.split 按照任意字符串分割语句
Delphi判断mssql数据库中表格是否存在? 如何批量创建表格?
Delphi winsocks检测某个tcp端口师傅正在被使用
Delphi controls 属性与继承 tshape 类的小练习
更多相关阅读请进入《Delphi》频道 >>