delphi，如何设置form1中所有的SpeedButton的top:=1(50)

W

winni

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-08-15

• #1

delphi，如何设置form1中所有的SpeedButton的top:=1

 

J

jiangzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-08-15

• #2

for i:=0 to form1.controlcont-1 do begin if 判段是不是Tspeedbutton then speedbutton.top:=1end;

 

Z

zhengrong117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-08-16

• #3

小提示，二楼的代码在改下，伪代码，楼主继续完善procedure SetTop(Sender:Tobject);var......beginfor i:=0 to Sender.controlcont-1 do begin if 判段是不是Tspeedbutton then speedbutton.top:=1 if 判段是不是容器(panel，groupbox等) then SetTop( Sender.);end;end;

 

D

duxbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-08-19

• #4

for i:=0 to form1.ComponentCount -1 do begin if form1.Components is Tspeedbutton then Tspeedbutton(form1.Components).top := 1; end;

 

M

mushroom_lb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-08-21

• #5

var i:integer; sb:Tspeedbutton;beginfor i:=0 to form1.ComponentCount -1 do begin if form1.Components is Tspeedbutton then begin sb:=form1.Components as Tspeedbutton; sb.top := 1; end; end;