+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف تجعل SpeedButton تتراصف على TForm (/showthread.php?tid=4024)
كيف تجعل SpeedButton تتراصف على TForm - cargem - 23-03-2012
كيف تجعل 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;
يبدو اني نسيت اشياء كثيرة ههه
كيف تجعل SpeedButton تتراصف على TForm - cargem - 24-03-2012
الحل
كود :
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;