DLL & MDI(100分)

  • 主题发起人 主题发起人 wxhbox
  • 开始时间 开始时间
W

wxhbox

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠,我用MDI主窗口,调用DLL中的MDI子窗口,问题是不报错但是MDI子窗口
一闪而过.请问这是怎么回事!
DLL中代码如下:
procedure Formshow(Handle:THandle;app:Tapplication);
var
p:^LongInt;
begin
p:=@(Application.MainForm);
p^:=LongInt(app.MainForm);
with TForm1.Create(application)do
begin
FormStyle:=fsMDIChild;
Show;
update;
end;
end;
 
当然有问题。
p指针和Tform1类指向不明,执行起来都不知道
会有什么现象。
procedure Formshow(formclass:Tformclass);
begin
with formclassdo
begin
formstyle:=fsMdichild;
show;
update;
end;
end;


 
高手,能具体点吗?,
 
可能是你给出的代码不对。
你定义的p指针虽然有赋值,但赋值后一直不使用,
所以不明白定义p指针是做什么?
还有用tform1是什么类?能够代表要创建的窗体吗?
 
据说是因为application.MainForm是只读的
所以用这个方式来修改MainForm属性
 
后退
顶部