組件高手進!我在組件中為其的某個事件指向一個方法,如ONCLICK:=MYDEFINE PROCEDURE,這個MYDEFINE PROCEDURE是寫在組件類中的,當我在FORM

Question

我在組件中為其的某個事件指向一個方法,如ONCLICK:=MYDEFINE PROCEDURE,這個MYDEFINE PROCEDURE是寫在組件類中的,當我在FORM中使用這個組件時,想繼承這個方法該如何做,請給出範例.

Answer 1

published
  property OnClick;这样在Form中使用这个控键的时候，在它的events中自然会有OnClick事件，在这里你可以写入新的代码，自动实现了继承。

Answer 2

参考delphi的东东，任意的事件有FClick对应，不妨你也按照这个方法。
如：
clickfclick:=onclick ;if assign(fclick) then
begin
  外界的事件处理
end ;