OnClick事件重写

Question

OnClick事件重写

delphidelphi-2010

6

我有一个自定义类，它是从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事件？

- JustMe

1

我做错了什么？这种情况发生是因为实际的OnClick事件处理程序是在构造函数执行完成后，在Loaded方法中分配的。但更好的方法是像下面建议的那样重写TButton的Click事件，而不是玩弄事件处理程序。但如果你想从组件内部分配事件处理程序，你应该在TComponent.Loaded方法执行后分配它。 - Aleksey Timohin

2

事件是为使用你的类/组件的应用程序而设计的，而不是为自身消耗而设计的。 - Warren P

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Andreas Rejbrand · Accepted Answer

编写组件时，不应使用事件处理程序来实现自定义行为。相反，您应该覆盖调用这些事件处理程序的代码。在这种情况下，忘记设置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;