如何在继承一个类的时候实现父类的事件的处理，来者有分

Question

TJSMenuItem = class(TMenuItem)
  private
    { Private declarations }  public
    { Public declarations }    procedure CreateYJJSDialog(Sender: TObject);
    OnClick = CreateYJJSDialog;    //此处报错
  end;

Answer 1

这个你要自己写代码的；
VAR TMP：TJSMENUITEM；
BEGIN
  TMP：=TJSMENUITEM。CREATE（）；
  TMP。ONCLICK：=CASDF
END；

Answer 2

重载父类的click事件
procedure click override       { forward declaration }...procedure TMyControl.Click;begin
  inherited Click;             { perform standard handling, including calling handler }
...                            { your customizations go here }
end;

Answer 3

 OnClick = CreateYJJSDialog;   // 这句话是代码.不能写在类声明里;
 重载create函数，在create函数里写这句话;

Answer 4

procedure CreateYJJSDialog(Sender: TObject);
OnClick = CreateYJJSDialog;    //此处报错
=〉
OnClick = CreateYJJSDialog;    //此处报错
procedure CreateYJJSDialog(Sender: TObject);

Answer 5

常用d983074(d983074)的做法,
你想那样实现照findcsdn(searchcsdn) 也可以.
cjfzy(他山之石，可以攻玉。) 别起哄了.你那儿报错是因为你定义的不是类成员函数.