为何放在GroupBox中的控件的父项控件不是GroupBox，而是Form，怎么解决？(50分)

D

databox1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-05

• #1

我在GroupBox中画了32个TEdit控件，但他的父项控件还是TForm而不是GroupBox，为什么？
我怎样才能将它的父项控件改成GroupBox？请哪位大侠给我答案，我很急！我实际上能在
GroupBox中操作它们，但是我用下面的例子来查找却发现Box.ComponentCount为0，Box为
TEdit控件所在的GroupBox。
for i:=0 to Box.ComponentCount-1 do
if (Box.Components is TEdit) then
if (Copy(TEdit(Box.Components).Name,1,4)='Edit') then
begin
EdtNum[x]:=TEdit(Box.Components);
inc(x);
end;

 

D

djdsz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-05

• #2

不会吧，我的都不会的，除非你真的将Edit放在Form上了。
试试你能不能将GroupBox Bringtofront

 

D

databox1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #3

请问怎样将GroupBox Bringtofront？还有就是我没有将Edit放在Form上，因为我移动Edit
就移不出GroupBox。

 

B

BaKuBaKu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-09

• #4

应该是 Box.ControlCount 和 Box.Controls 。

你的 Edit 的确是在 GroupBox 上，不相信可以看一看下面的代码：

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(Edit1.Parent.Classname);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage(IntToStr(Box.ControlCount));
end;

 

丝

丝巾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-10

• #5

不会吧，你选择32个TEdit控件时是直接在GroupBox上用鼠标拉的还是在控件选择栏双击生成的呢，如果是双击32次生成的，那么如果双击前你无意中按了鼠标选了Form，那就生成到Form上去了，再试一次看看。

 

D

databox1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-10

• #6

多谢BaKuBaKu,问题解决!

 

D

databox1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-10

• #7

多谢BaKuBaKu,问题解决!