J
jeffrey_s
Unregistered / Unconfirmed
GUEST, unregistred user!
定义一个类变量 FIsInvalid: Boolean 去判断是否有效。
然后等SendMessage让其他对象删除自己就可以了。
if NumA = NumB then
begin
FIsInvalid := True;
SendMessage(Contnr.Handle, WM_RemoveTrain, Integer(Self), 0);
end;
然后在Contnr的Message中Free,Remove等等就可以了。
然后等SendMessage让其他对象删除自己就可以了。
if NumA = NumB then
begin
FIsInvalid := True;
SendMessage(Contnr.Handle, WM_RemoveTrain, Integer(Self), 0);
end;
然后在Contnr的Message中Free,Remove等等就可以了。