胆
胆儿肥
Unregistered / Unconfirmed
GUEST, unregistred user!
var mr:TModalResult;
ModuleInstance1:THandle;
frm:TCustomForm;
begin
ModuleInstance1:=LoadPackage('../ABC.bpl');
frm:=TForm(TComponentClass(FindClass('TFind')).create(self));
//这句有问题,不能编译,把self换成调用的form,可编译,但执行出错.
mr:=frm.showmodal;
...
end;
ModuleInstance1:THandle;
frm:TCustomForm;
begin
ModuleInstance1:=LoadPackage('../ABC.bpl');
frm:=TForm(TComponentClass(FindClass('TFind')).create(self));
//这句有问题,不能编译,把self换成调用的form,可编译,但执行出错.
mr:=frm.showmodal;
...
end;
]