星
星之瀚海
Unregistered / Unconfirmed
GUEST, unregistred user!
我在创建一个ActiveForm控件时,在其创建事件加入了如下代码
Application.CreateForm(TInfoFolder,FInfoFolder);
try
with FInfoFolder do
begin
Parent:=self;
Align:=alclient;
BorderStyle:=bsnone;
Database.DatabaseName:='dd';
end;
FInfoFolder.show;
except
FInfoFolder.free;
end;
在另外的程序中设计时发现,上面的窗体可以正常显示,
但菜单不见了,有什么办法让菜单也显示出来
只有这么多分了
Application.CreateForm(TInfoFolder,FInfoFolder);
try
with FInfoFolder do
begin
Parent:=self;
Align:=alclient;
BorderStyle:=bsnone;
Database.DatabaseName:='dd';
end;
FInfoFolder.show;
except
FInfoFolder.free;
end;
在另外的程序中设计时发现,上面的窗体可以正常显示,
但菜单不见了,有什么办法让菜单也显示出来
只有这么多分了