子窗體設計(50分)

  • 主题发起人 主题发起人 cofu
  • 开始时间 开始时间
C

cofu

Unregistered / Unconfirmed
GUEST, unregistred user!
夫,子窗體設計完工,但運行是同時顯現,如果在Project/Option里把子窗體移到Auto->varible框里會只出現夫窗體,但在夫窗體設置按鈕<子窗體.show>
使之顯示子窗體又出現錯誤.
我怎樣才能像VB里一樣輕鬆設置呢.
 
在Project/Option里把子窗體移到Auto->varible框里 没错
但在使用子窗体时必须先建立它,比如form1为主窗体,form2为子窗体
这样建立form2
form2:=Tform2.Create(nil);
 
或者在implementation

uses Unit2;

使用时 Form2.show;
 
显然没有创建一个子窗体。
 
先生成一个form2;
然后
button1.onclick;
var myform:tform;
begin
myform:=tform.create(self);
myform.show;
myform.formstyle:=fsmdichild;
end;
记得在form1 uses 中加入unit2;
 
这样就先要创建FORM2了
在父窗体的命令里: FORM2.CREATE(SELF);
FORM2.SHOW;
这样就可以!
 
把子窗口的VISIBLE=FALSE,PROJECT|OPTION中就不要改了。
显示只要FROM2。SHOW就可以了。

我很奇怪,所有窗口的VISIBLE缺省是FALSE呀,一个程序应该只看见主窗口的。
 
在FILE|NEW|PROJECTS里选MDI Application新建一个MDI例程,里面包含了
MDI程序的基本操作,可以借鉴
 
要先创建啊。
 
多人接受答案了。
 
后退
顶部