delphi多线程超COOL示例
TMyThread = class(TThread) private step_mun: Integer; max_mun: Integer; FProgressBar: TProgressBar; FLabel: TLabel; procedure DoProgress; protected procedure Execute; override; public constructor Create(CreateSuspended: Boolean); end;
文件大小：169.86KB
评论区