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;