delphi - 如何处理复合组件中子组件的双击？

Question

我创建了一个基于 TCustomPanel 的新复合组件。在它上面我有两个标签和一张图像，覆盖了所有表面，请参阅此布局(下部不太重要):

我的问题是如何导出这些控件的双击功能？是否可以使用新控件的双击(事件)来管理其上的子控件？

Answer 1

我认为你应该使用以下方法来做到这一点:

1. 向复合组件添加 OnDblClick 事件。
2. 向复合组件添加一个名为 FOnInternalDblClick 的方法(名称并不重要)，该方法与 TNotifyEvent 兼容。
3. 在FOnInternalDblClick内，执行复合组件的OnDblClick。
4. 在复合组件的构造函数中，将 FOnInternalDblClick 分配给您要管理事件的每个组件的 OnDblClick 事件。

示例代码:

TMyCompoundComponent = class(TCustomPanel)
protected
  FOnDblClick : TNotifyEvent;
  procedure FOnInternalDblClick(ASender : TObject);
public
  constructor Create(AOwner : TComponent); override;
published
  property OnDblClick : TNotifyEvent read FOnDblClick write FOnDblClick;
end;

constructor TMyCompoundComponent.Create(AOwner : TComponent);
begin
  inherited;
  //Lab1.OnDblClick := FOnInternalDblClick;
  //Lab2.OnDblClick := FOnInternalDblClick;
  //...
end;

procedure TMyCompoundComponent.FOnInternalDblClick(ASender : TObject);
begin
  if(Assigned(FOnDblClick))
  then FOnDblClick(ASender);
end;

注意:

在复合组件的 OnDblClick 事件处理程序中，ASender 参数将是内部组件(Lab1、Lab2) >，Lab3...)。如果您希望将复合组件本身作为 ASender 参数接收，则可以通过传递 Self 而不是 ASender< 来更改 FOnInternalDblClick 方法。/:

procedure TMyCompoundComponent.FOnInternalDblClick(ASender : TObject);
begin
  if(Assigned(FOnDblClick))
  then FOnDblClick(Self);
end;