如何在 BCB ActiveForm 中加入Event 教學
Tuesday, September 30th, 2008
BCB 中要如何增加 Event 呢？在此分享我的經驗
1. 在 class xxxImpl 中的 IxxEvents 中加入 Event Method
ex: OnTest (int a,int b)
2. 在 這個 class xxxImp 增加一個 Method ,設定要回傳格式, 使其可以Fire_Onxxxx(ｘｘ,YY,XX)
ex: TestEvent (int a, int b)
3. 在實做的class 中增加 TEventNotify 的 property or 自訂回傳的格式的type
ex:
先定義 TTestEvent
typedef void __fastcall(__closure *TTestEvent)(TObject* Sender, int a, int b);
再 private 中加入
TNotifyEvent FOnXX
or
TTestEvent FOnTest
再來在 __property 加入
__property TNotifyEvent OnXX = { read = FOnXX, write = FOnXX };
__property TTestEvent OnTest = { read = FOnTest, write = FOnTest };
3. 在 InitializeControl（） 中將 m_VclCtl->OnTest = TestEvent;
這樣子就大功告成啦
那要怎麼在 網頁中引用呢？
<script language="jscript" FOR="ObjectID" event="OnTest()">
xxxxx.xx = document.ObjectID.xxxx; or anything
</script>
版權所有, 如要引用請註明出處, 請勿商用
