TNotifyProc = procedure (要传的参数) of object;TMyThread = class(TThread)private FNotifyEvent:TNotifyProc;protected procedure Execute;
override;public property NotifyEvent: TNotifyProc write FNotifyEvent;
end;
// 实现procedure TMyThread.Execute;
begin
if FNotifyEvent <> nil then
FNotifyEvent(要传的参数);
end;
