OnClick事件覆盖

Question

我有我的自定义类巫婆从TButton的衍生：

TLoginResultEvent = procedure (Sender: TObject; LoginResult: boolean) of object; 
TLoginButton = class(TButton) 
    private 
     fLogin: TLoginChooser; 
     fOnClick: TLoginResultEvent; 
    public 
     constructor Create(AOwner: TComponent); override; 
     destructor Destroy; override; 

     procedure OnClickResult(Sender: TObject; LoginResult: boolean); 
    published 
     property Login: TLoginChooser read fLogin write fLogin; 
     property OnClick: TLoginResultEvent read fOnClick write fOnClick; 
    end; 

在构造函数中我说：

constructor TLoginButton.Create(AOwner: TComponent); 
begin 
    inherited; 

    fOnClick := OnClick; 
    OnClick := OnClickResult; 
end; 

但是，当我点击它没有发射OnClickResult按钮，我算什么我做错了？是否有可能“重写”OnClick事件处理程序，或者我应该隐藏它，并例如OnResultClick事件？

Answer 1

编写组件时，不应该使用事件处理程序来实现自定义行为。相反，您应该重写调用这些事件处理程序的代码。在这种情况下，忘记设置OnClick。相反，只需添加

public 
    procedure Click; override; 

你的类声明，并实现

procedure TLoginButton.Click; 
begin 
    inherited; // call the inherited Click method. 
    // Do something new. 
end; 

事件处理程序在那里使用组件开发商使用。组件编写者不应该自己使用它们。

如果你想在组件的用户看到一个不一样的“onClick”的方法，你必须自己实现，像

type 
    TLoginResultEvent = procedure(Sender: TObject; LoginResult: boolean) of object; 

... 

TLoginButton = class(TButton) 
private 
    FOnClick: TLoginResultEvent; 
... 
public 
    procedure Click; override; 
... 
published 
    property OnClick: TLoginResultEvent read FOnClick write FOnClick; 
... 

procedure TLoginButton.Click; 
begin 
    inherited; 
    if Assigned(FOnClick) then 
    FOnClick(Self, true); // or false... 
end;