在 Delphi 中如何 run-time 產生 buttom ?

[醜小鴨]

【 在 steve...@bbs.mgt.ncu.edu.tw (越來越秀斗了....) 的大作中提到: 】
==> ponch...@cis.nctu.edu.tw (呆呆的小孩) 提到:
> ==> 在 poncha@cis_nctu (呆呆的小孩) 的文章中提到:
> > 我想在 delphi 程式中 run-time 產生一個 buttom.
> > 我先用 TMyButtom = Class (TButtom) 宣告 TMyButtom 類別.
> > 然後在程式中呼叫 mybtn = TMyButtom.Create;
> > 再設些屬性. Buttom 建好了.
> > 但問題是, 我該如何寫這個 buttom 的 OnClick event handler 呢 ?
> > 如何讓此 hander 會在 buttom 被按時被 trigger ?

: 動態產生OnClick procedure好像是不行(這個我不確定)
: 但是可以事先寫好一個procedure。然後在create時，使
: 用類似指定property的方式。把OnClick指過去即可！

mybtl.OnClick:=MyOnClick;這樣就可以了
......取自DELPHI HOWTO....

--
[1;34m※ 來源:‧大溪風嶺BBS站 bbs.ccit.edu.tw‧[FROM: GUMPism.edu.tw] [m