全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:818
推到 Plurk!
推到 Facebook!

如何透過程式產生Button

答題得分者是:P.D.
kevinsoung
一般會員


發表:26
回覆:34
積分:12
註冊:2011-11-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2012-03-09 15:22:43 IP:60.248.xxx.xxx 訂閱
各位老師與大大:
請問我有一個名為 [產生]按鈕(
Button1)
當按下該按鈕時希望能產生出 2 個 新按鈕名為AddBut1與AddBut2

AddBut1 新的按鈕位置在
Height:=25;
Left:=8;
Top:=8;
Width:=75;
AddBut2 新的按鈕位置在
Height:=25;
Left:=8;
Top:=48;
Width:=75;

請問要如何處理?
感激不盡
P.D.
版主


發表:571
回覆:3888
積分:3677
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2012-03-09 21:41:06 IP:118.169.xxx.xxx 未訂閱
這是一個最基本的做法, 當然不知道你要做什麼用, 所以其實底下還有很多要處理, 因為我相信你不會只是想畫出一個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]
kevinsoung
一般會員


發表:26
回覆:34
積分:12
註冊:2011-11-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2012-03-10 14:54:04 IP:1.161.xxx.xxx 訂閱
相當感謝P.D版主的回覆
我會好好的研究
更謝謝您的回覆
萬般感謝
系統時間:2017-12-14 4:20:44
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!