自己解决了。主要是传递事件
TimeThread = class(TThread)
private
FOnExecute: TNotifyEvent;
protected
procedure DoExecute;
procedure Execute; override;
public
property OnExecute: TNotifyEvent read FOnExecute write FOnExecute;
end;
实现
procedure TimeThread.DoExecute;
begin
if Assigned(FOnExecute) then
FOnExecute(Self);
end;
procedure TimeThread.Execute;
begin
FreeOnTerminate := True;
while not Terminated do
begin
Synchronize(DoExecute);
Sleep(1000);
end;
end;
而组件类要使用这个线程的话，得先包含他的对象，然后赋事件给线程体。
TClock = class(TGraphicControl)
private
procedure EverySecondDraw(sender: TObject);
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
{```````}
end;
创建时
constructor TClock.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FTimeThread := TimeThread.Create(True);
FTimeThread.OnExecute := EverySecondDraw;
FTimeThread.Resume;
end;
