كيف تجعل SpeedButton تتراصف على TForm

[cargem]

كيف تجعل SpeedButton تتراصف على Tform
;كيف نجعل Top تعمل سطر جديد

for j := 0 to 40 do
begin
inc(count);
SpeedButton := TSpeedButton.create(self);
with SpeedButton do
begin

if count < 5 then
begin
Top:=22;
left := ComponentIndex * 25;
end;

يبدو اني نسيت اشياء كثيرة ههه

[cargem]

الحل

كود :

var i: integer; SpeedButton: TSpeedButton; begin for i := 0 to 89 do begin SpeedButton := TSpeedButton.Create(Self); with SpeedButton do begin Parent := Panel1; Caption := IntToStr(i); Left := ((i) mod 5) * 25 + 2; Top := ((i) div 5) * 25 + 2; Font.Style := [fsBold]; end; end; end;