線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:243
推到 Plurk!
推到 Facebook!

動態產生的按鈕 如何寫click事件

答題得分者是:pprayer
shawn850717
一般會員


發表:8
回覆:11
積分:3
註冊:2016-10-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2017-06-09 16:44:01 IP:61.221.xxx.xxx 未訂閱

請問一下 動態產生的按鈕有很多個 要寫click事件該怎麼做?
搜尋都只有c 的看不懂@@

pprayer
高階會員


發表:35
回覆:185
積分:174
註冊:2002-03-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2017-06-09 16:57:58 IP:124.109.xxx.xxx 未訂閱
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure RuntimeClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var btn : TButton;
begin
btn := TButton.Create(self);
btn.parent := self;
btn. RuntimeClick;
end;

procedure TForm1.RuntimeClick(Sender: TObject);
begin
showmessage('hello world');
end;

end.
編輯記錄
pprayer 重新編輯於 2017-06-09 16:59:04, 註解 無‧
pprayer 重新編輯於 2017-06-09 17:00:41, 註解 無‧
pprayer 重新編輯於 2017-06-09 17:01:09, 註解 無‧
pprayer 重新編輯於 2017-06-09 17:01:52, 註解 無‧
pprayer
高階會員


發表:35
回覆:185
積分:174
註冊:2002-03-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2017-06-09 17:02:44 IP:124.109.xxx.xxx 未訂閱
顯示很怪 不會改
請按引用回覆
裡面的程式碼才是完整的
編輯記錄
pprayer 重新編輯於 2017-06-09 17:03:54, 註解 無‧
pprayer 重新編輯於 2017-06-09 17:05:25, 註解 無‧
shawn850717
一般會員


發表:8
回覆:11
積分:3
註冊:2016-10-11

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