M
MayRoy
Unregistered / Unconfirmed
GUEST, unregistred user!
过程 procedure ThreadsDone(Sender: TObject)声明在TForm的自身部分，其定义如下：
procedure TMainForm.ThreadsDone(Sender: TObject);
begin
// 具体代码略
end;
然后在线程的Execute方法中，有如下代码：
OnTerminate:= TMainForm.ThreadsDone;
把 ThreadsDone 过程赋值给OnTerminate.
编译时出现以下错误信息，请各位大虾指教：
[Error] FrmMain.pas(69): Incompatible types: 'TNotifyEvent' and 'Procedure'
procedure TMainForm.ThreadsDone(Sender: TObject);
begin
// 具体代码略
end;
然后在线程的Execute方法中，有如下代码：
OnTerminate:= TMainForm.ThreadsDone;
把 ThreadsDone 过程赋值给OnTerminate.
编译时出现以下错误信息，请各位大虾指教：
[Error] FrmMain.pas(69): Incompatible types: 'TNotifyEvent' and 'Procedure'