我的窗体上放了两个按钮，如何让两个按钮始终位于窗体中间位置？？？急！！！ ( 积分: 10 )

Z

zgjob

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #1

我的窗体上放了两个按钮，如何让两个按钮始终位于窗体中间位置？？急！！！

 

S

shunzi1220

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #2

Anchors中的akLeft、akRight设为True，或在Form的OnResize事件中计算后改变位置

 

Y

yunxi126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #3

top=窗体的高/2
left=窗体的宽/2

 

N

nakata_wang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #4

这个好办,,Form 的 OnResize()事件里面写按钮的位置

 

Z

zgjob

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #5

如何写？？

 

F

fsldg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #6

GroupBox17.Width := (TabSheet6.Width - 65) div 2;
GroupBox18.Width := (TabSheet6.Width - 65) div 2;
SpeedButton15.Left := GroupBox17.Width + 5;
SpeedButton16.Left := GroupBox17.Width + 5;

 

F

fsldg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #7

procedure Tc_BKPenaltyFrm.TabSheet6Resize(Sender: TObject);
begin
inherited;
GroupBox17.Width := (TabSheet6.Width - 65) div 2;
GroupBox18.Width := (TabSheet6.Width - 65) div 2;
SpeedButton15.Left := GroupBox17.Width + 5;
SpeedButton16.Left := GroupBox17.Width + 5;
end;

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-01

• #8

简单，一行代码都不用写。
窗体上放上你的Button，注意，放在中间位置，你自己调整好（可以用Delphi->View菜单的Alignment菜单项操作），然后吧Button.Anchors属性全部改成False，ok了。

 

Z

zdwjetlee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-02

• #9

支持zqw0117 学到了

 

Y

yuzk2005

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-02

• #10

zqw0117 牛!!

 

Z

zgjob

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-02

• #11

多人接受答案了。