請教前輩如何用迴圈動態建立12個button的簡潔寫法? 以下是BUTTON FB1的寫法(FB2~FB12): FB1:=TButton.Create(Self); FB1.Font.Size:=10; FB1.Width:=30; FB1.Height:=30; FB1.Top:=32*i;

var
  FB: array[1..12] of TButton;
  i: integer;
bgin
  for i := 1 to 12 do
  begin
     FB[i] := TButton.Create(Self);         
     FB[i].Parent := Self; // 要設 Parent, 不然不會顯示
     FB[i].Font.Size := 10;
     FB[i].Width := 30;
     FB[i].Height := 30;
     FB[i].Top := 32*i;
  end;
end; 

謝謝Hagar版主的指導!另外我也試了下列方打法也行. Var FB:Sstring; for i := 1 to 12 do begin FB:='FB' IntToStr(i); TButton(FB):=TButton.Create(Self); TButton(FB).Parent:=Self; TButton(FB).Caption:=copy(AddrString,2*i-1,2); TButton(FB).Font.Size:=10; TButton(FB).Width:=30; TButton(FB).Height:=30; TButton(FB).Top:=32*i; end;

    你好：
  ucdesign2 你的方法雖然執行沒有問題，但你真正了解自己做了什麼事嗎
 >        < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">