5

我有一个带有某些组件的表单，这些组件具有事件处理程序。现在我想将这些事件处理程序（那些方法）移动到一个单独的单元，仍然能够在设计时通过 Object Inspector 将它们分配给组件事件。

是否可以只为事件方法创建一个单独的单元，以便对象检查器允许我在设计时分配它们？

假设我是否要使用公共程序制作该单元：

unit Unit2;

interface

procedure ButtonClick(Sender: TObject);

implementation

procedure ButtonClick(Sender: TObject);
begin
  // do something here
end;

end.

或者使用具有如下已发布方法的类：

unit Unit2;

interface

type
  TMyClass = class
  published
    procedure ButtonClick(Sender: TObject);
  end;

var
  MyClass: TMyClass;

implementation

{ TMyClass }

procedure TMyClass.ButtonClick(Sender: TObject);
begin
  // do something here
end;

end.

如何为事件方法创建一个单独的单元，哪个 IDE 允许我在设计时分配给组件事件？比如：

在此处输入图像描述

4

1 回答 1

4

大多数事件都是方法指针。这意味着它们指向类中的过程或函数。因此，您不能只将过程 Unit2.ButtonClick 附加到按钮的单击事件，但您可以编写一个实现事件处理程序的类，如下所示：

type
  TMainFormButtonEventHandler = class
    procedure ButtonClick(Sender: TObject);
  end;

procedure TMainFormButtonEventHandler.ButtonClick(Sender: TObject);
begin
  ShowMessage('Clicked');
end;

现在您可以创建这样一个对象并将其链接到事件：

handler := TMainFormButtonEventHandler.Create;
Form1.Button1.OnClick := handler.ButtonClick;

不过，我不认为这是最好的应用程序结构。我不会从表单单元之外连接到表单的 GUI 元素。但是，如果您想这样做，这就是它的完成方式。

如果您正在寻找 GUI 和逻辑的分离，请查看操作。TAction（包装在 ActionList 中）是 GUI 组件（如按钮）与其执行的操作代码之间的第一层抽象。

方便的是您也可以在设计时创建这些动作，并将它们附加到按钮或其他控件上。您无需为 ButtonClick 编写代码，而是为 ActionExecute（操作的 OnExecute 事件）编写代码。按钮知道当它被点击时，它应该执行它的相关动作。

于 2013-08-14T19:42:12.183 回答