一个继承的问题?

Question

基类TEdit 子类TMyEdit请问如何在TMyEdit.OnClick写一些代码,并且在使用TMyEdit时,又可以在OnClick再写一些代码?
(保存两组代码都能执行)

Answer 1

TMyEdit = class(TEdit)
  protected
   procedure Click; override;
  end;procedure TMyEdit.Click;
begin
  showMessage('here');
  inherited;
end;

Answer 2

在OnClick后面加上override;关键字。然后在过程里继承父类的代码。也就是在过程里加Inherited;

Answer 3

再请问"ari-爱的眼睛", 如何是OnShow呢?

Answer 4

不好意思，aiirii(ari-爱的眼睛) 抢先了。

Answer 5

>> 如何是OnShow呢?
好象沒有 OnShow 這個事件啊, 要自己加上去

Answer 6

自己搞定! 希望能帮助需要的朋友.  protected
    procedure GetShow(Sender: TObject);
    procedure Loaded; override;
  published
    constructor Create(AOwner: TComponent); override;
  end;implementationconstructor TMyForm.Create(AOwner: TComponent);
begin
   inherited;
   OnShow:=GetShow;
end;procedure TMyForm.GetShow(Sender: TObject);
begin
   if Assigned(fOldOnShowEvent) then
      fOldOnShowEvent(Sender);
end;procedure TMyForm.Loaded;
begin
   inherited;
   fOldOnShowEvent:=OnShow;
end;