有一ACTIVEFORM，内有一按钮，我想为ACTIVEFORM建立一个事件，当MOUSE点击按钮（MOUSE UP)的时候就触发该事件。(50分)

回复人：　aft_st_sd(浪子)　(2002-1-31 9:00:09) 得0分
把代码写在MOUSE UP 事件里不就结了吗？
回复人：　40Star(陪你去看--☆流星雨★)　(2002-1-31 9:01:58) 得0分
是成员函数吧！？
一个对象的事件是固定的，可以添加Delphi没有封装好的
能说清楚写吗？
回复人：　cobi(我是小新)　(2002-1-31 9:09:24) 得0分
强烈关注
回复人：　gmc007(江西的佬表)　(2002-1-31 9:36:11) 得0分
to：　aft_st_sd(浪子)　
把代码写在MOUSE UP里，说明当我点击该按钮时只是执行了一段代码，并没有触发一个事件呀，你想想，如果这个ACTIVEFORM是用在HTML页中，脚本（VBSCRIPT,JAVASCRIPT）如果知道你点击了ACTIVEFORM的按钮呀？？

to：　40Star(陪你去看--☆流星雨★)　
如上，应该比较清楚了吧。

to：　cobi(我是小新)　
给点提示呀，关注解决不了问题：（

UP,,

我不太清楚提问的具体意思。

我想，这样是不是能解决问题：
1。建一form1,其上有一按钮，在按钮的onclick事件中，写下你需要的代码；
2。建一form2,请注意Tform2=class(Tform1)。

不知对否？

除了UP，我还能说什么呢。

这个问题在以前曾有答案。
我实现了你的效果，但是在网页上不能激活那个事件，但是在delphi其他项目使用这个ocx的时候
没有问题
1.在t lib中新建一个TEvent:Event1
2.在原button.onclick上写下
if Assigned(FEvents) then
FEvents.Event1;

up