如何一次设置多个组件的属性？(50分)

S

SmallMice

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-13

• #1

各位好！
我有一个问题，那就是怎样才能一次改变窗体上多个相同类的组件的属性。如Form1中
有五个edit组件，分别为：edit1、edit2、edit3、edit4、edit5想按一次按钮便可全部改
变这五个Edit组件的Hint、Font属性该怎么办？

 

L

lps

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-13

• #2

先选中五个edit组件，then...

 

S

Solid_Snake

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-13

• #3

可以，设置form1的showhint为true，在form1的create中写上例如edit1.hint:= 'sssssss';
edit2.hint:= 'fffffffffff';等等，设置font比较麻烦，你加一个TFontdialog，然后if fontdialog1.execute then
edit1.font:= fonedialog1.font;等等，应该可以实现了，看看行不行。

 

D

digeozeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-13

• #4

在form的create事件中添加你要修改的属性就行

 

S

Solid_Snake

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-13

• #5

如果你要在设计期中修改也可以啊，问题解决了吗。

 

S

SmallMice

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-13

• #6

各位高手，我是想在按一次Button1后就直接修改这五个Edit组件的Hint和Font属性,而不是
分别为其进行修改,分别修改的话我也会。

 

强

强人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-13

• #7

shifte 全部选中

 

X

xujh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-13

• #8

请按下Shift，并逐一点击要选择的控件，然后按F11,找到要修改的Item进行修改

 

S

Solid_Snake

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-13

• #9

我上面写了，设计一个button，然后在它的onclick里面设置属性内容，改变font你要知道
api，还要知道字体编码啊，比较麻烦了。

 

C

cjfzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-13

• #10

for i:=0 to self.controlcount-1
begin
if self.controls.classtype=TEdit then
begin
TEdit(self.controls).Hint:='new hint';
TEdit(self.controls).Font:=.....;
end;
end;

 

S

SmallMice

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-13

• #11

接受答案了.