如何设置父对象的caption属性,很简单的,100分!(100分)

S

sagitary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #1

我分别放了好多个edit在不同的groupbox中,我想让用户在edit中输入后按回车,
则当前groupbox中所有edit的值都会被加到groupbox的caption上,我想应该要用到控件的
父对象吧？由于论坛的search没反应,我对delphi不是很精通，所以发了一个贴子，
希望有人回答.先谢谢了。

 

Z

zxbyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #2

(button1.parent as TForm).caption:='新年快乐!!!'

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #3

楼上的没看清楚吗？
不是form，是groupbox
(button1.parent as Tgroupbox).caption:='新年快乐!!!'

 

墨

墨剑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #4

tgroupbox(edit1.Parent).Caption:=edit1.Text;

 

Z

zxbyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #5

不好意思:没看清楚!
不过原理都是一样的!!!

 

P

proman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #6

with groupbox do
begin
for I;=0 to componentcount -1 do
begin
if components is teditbox then
begin
caption := caption + (components as TEditBox).caption;
end;
end;
end;

每次改变后调用一下这个函数就可以了，
比如在Edit的失去焦点事件中。可以把所有的EditBox共用一个事件。

 

S

sagitary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #7

成功,多谢！大家的search 是不是都有问题？

 

J

jihenglixin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #8

edit的KeyPress事件中写如下代码,并将其它的edit的keypress事件关联
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
((sender as Tedit).parent as TgroupBox).caption := (sender as Tedit).text;
end;

 

S

sagitary

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #9

我回复时没看到有这么多人回复了，下次再给，多谢啦