各位老師與大大:
請問我有一個名為 [產生]按鈕(Button1)
當按下該按鈕時希望能產生出 2 個 新按鈕名為AddBut1與AddBut2

AddBut1 新的按鈕位置在

Height:=25;

Left:=8;

Top:=8;

Width:=75;

AddBut2 新的按鈕位置在

這是一個最基本的做法, 當然不知道你要做什麼用, 所以其實底下還有很多要處理, 因為我相信你不會只是想畫出一個button好看而已, 
所以既然是動態建立, 所有的event 事件你就要自己去指定, 還有其他的properity也是
接下來才是重頭戲, 慢慢去研究吧,
論譠有很多討論
另外, 還有 addbtn1 的定義是要定義在 procedure 中比較好, 還是要定義在 private 或者public 中,
端看你想拿 addbtn1 做什麼用了

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var addbtn1: TButton;
begin
addbtn1:= TButton.Create(self);
addbtn1.Parent:= Form1;
addbtn1.name:= 'addbtn1';
addbtn1.Height:= 25;
addbtn1.Left:=8;
addbtn1.Top:=8;
addbtn1.Width:=75;
addbtn1.Show;
end;

[/code]

相當感謝P.D版主的回覆
我會好好的研究
更謝謝您的回覆
萬般感謝