4868
社区成员
- 全部
- 语言基础/算法/系统设计
- 数据库相关
- 图形处理/多媒体
- 网络通信/分布式开发
- VCL组件开发及应用
- Windows SDK/API
- 问答
可能是整个csdn最简单的问题
一个mdi父窗体。 两个子窗体，取消自动启动。 怎样在父窗体里创建及启动子窗体？
两个普通窗体 假如不自动启动，怎样在一个窗体中，创建及启动另一个窗体？谢谢
两个普通窗体 假如不自动启动，怎样在一个窗体中，创建及启动另一个窗体？谢谢
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
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);
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;
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;
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);
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;
var
form2:Tform2
begin
form2:=tform2.create(self);
form2.show;
end;
