如何使所有form中的button的样式高度宽度一样？不想一个一个设置窗体中的button.或者修改其中一个button的样式后其他的也都改变了，有没有好的办法

L

lotuscheng2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-21

• #1

如何使所有form中的button的样式高度宽度一样？不想一个一个设置窗体中的button.或者修改其中一个button的样式后其他的也都改变了，有没有好的办法？ ( 积分: 100 )<br />谢谢。

 

L

lotuscheng2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-21

• #2

谢谢。

 

L

liugaohui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-21

• #3

选中全部button，设置高度即可

 

X

xfz8124

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-21

• #4

var
i:integer;
btnRef:TButton;
begin
for i:=0 to Form1.ComponentCount-1 do
if Form1.Components is TButton then
begin
btnRef:=Form1.Components as Tbutton;
btnRef.Height:=50;
btnRef.Width:=150;
end;
end;

delphi 2005

 

B

BmwHans1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-21

• #5

var
i:integer;
begin
for i:=0 to Form1.ComponentCount-1 do
if Form1.Components is TButton then
with (Form1.Components as Tbutton) do
begin
Height:=50;
Width:=150;
end;
end;

 

J

Jonson_sunshine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-21

• #6

设计期的Object TreeView中，同一类型的控件是连续排列的，
可以按住Ctrl键后选中所有Button控件，再在Form中右键单击其中一个Button，
弹出菜单中有Position等项，通过设置这些值就可以达到目的。

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-21

• #7

楼上正解，实在想偷懒就用些三方的东西，比如cnPack

 

L

lotuscheng2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-21

• #8

多人接受答案了。