mdi子窗体中的控件为什么看不到？？（极为简单！）(100分)

龙

龙飞虎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-11

• #1

我在主窗体form1中用一个buttonclick建立了一个子窗体
我先建立了一个application,又new了一个form2，在其中放了一个button
子窗体可以创建，但为何在子窗体(我想使它为form2)中的控件都看不见？
希望前辈能给出代码,谢了先。

 

D

douh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-11

• #2

不会吧？我试了，没发现问题，不知源程序是怎样的？

 

A

am2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-12

• #3

我也试过，可以啊

 

S

Slong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-12

• #4

你是动态建立的吗？如果是可能你漏了这一句：
Button.Parent:=Form2;

 

龙

龙飞虎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-13

• #5

哦
我搞错了一个地方，我把var childform:tform2;错写成var childform:tform了
怪不得，搞了半天。
但是我在子窗口中的button如何才能关闭着个子窗口呢？
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
act:=cafree;//其中act为全局变量
form2.FormClose(self,act);
end;
这样写可以通过，但是关不了子窗口。
而用form2.close又会出错，该如何写呢？

 

龙

龙飞虎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-16

• #6

没人回答？
不会吧，其实说明白一点就是如何在子窗口中用一个button将这个子窗口自己关闭。

 

G

gcq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-18

• #7

先定义一个MyFormClose(Sender: TObject; var Action: TCloseAction);过程
begin
Action:=caFree;
end;

在创建FORM2时，Form2.OnClose:=MyFormClose;

 

龙

龙飞虎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-19

• #8

多人接受答案了。