D
difilwy
Unregistered / Unconfirmed
GUEST, unregistred user!
const
MY_ErrorMsg=WM_USER+1000;
type
TErrorMsg=record
ErrorId:integer;
ErrorStr:string;
end;
type
TErrorProcess = class(TThread)
private
{ Private declarations }
protected
procedure Execute;
override;
procedure OnSystemError(var msg:TErrorMsg);
message MY_ErrorMsg ;
end;
这样做怎么接受不到其他单元发出的消息?