可能是整个csdn最简单的问题

comecsdn 2003-04-23 10:22:52
一个mdi父窗体。 两个子窗体,取消自动启动。 怎样在父窗体里创建及启动子窗体?

两个普通窗体 假如不自动启动,怎样在一个窗体中,创建及启动另一个窗体?谢谢
...全文
33 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
yiminggw 2003-04-25
  • 打赏
  • 举报
回复
up
lanyan8008 2003-04-25
  • 打赏
  • 举报
回复
up
simonzone 2003-04-24
  • 打赏
  • 举报
回复
去年的六月份我问过这个问题的.
i54 2003-04-24
  • 打赏
  • 举报
回复
begin
if not assigned(form2) then
begin
application.createform(tform2,form2);
form2.show;
end;
end;

form2.onclose()
freeandnil(form2);
yoisyois 2003-04-24
  • 打赏
  • 举报
回复
begin
if not assigned(form2) then
begin
application.createform(tform2,form2);
form2.show;
end
else
Form2.show;
end;
belllab 2003-04-24
  • 打赏
  • 举报
回复
^_^:MDI:Application.CreateForm(TForm1,Form1);当它是MDIChild时,一但创建它就会自动显示出来,
SDI:Application.CreateForm(TForm1,Form1);
Form1.ShowModal;
Form1.Free;
in Form1:
Application.CreateForm(TForm2,Form2);
Form2.ShowModal;
Form2.Free;
seawavefj 2003-04-24
  • 打赏
  • 举报
回复
在option中设置
yzykjh 2003-04-24
  • 打赏
  • 举报
回复
begin
if not assigned(form2) then
begin
application.createform(tform2,form2);
form2.show;
end;
end;

form2.onclose()
freeandnil(form2);
hjb8000 2003-04-24
  • 打赏
  • 举报
回复
好办,
ywwr 2003-04-24
  • 打赏
  • 举报
回复
迟了好几步,可惜。
shadowfish 2003-04-23
  • 打赏
  • 举报
回复
动态创建显示窗体如下
var
form2:Tform2
begin
form2:=tform2.create(self);
form2.show;
end;

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧