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;