创建复合控件是否明智？

Question

我有这个应用程序在许多地方重用了一种成语。有一个 TPanel，上面有一些标签和按钮。目的是允许用户选择一个日期范围。

“&Dates”标题是一个标签，“All Dates”部分是第二个标签。当用户单击“选择”按钮时，会弹出一个表单，向用户显示一对日期/时间控件和确定/取消按钮。如果用户在选择某些日期后点击 OK，第二个标签将变为“From mm/dd/yyyy To mm/dd/yyyy”。

创建一个封装这些控件的组件是否合理？我一直在查看组件编写者的各种资源，但它们似乎没有指出我正在考虑的问题，例如处理按钮的 onclick 事件。如果这是一个合理的尝试，我也很感激关于如何制作这种“复合控件”的描述的指针。

Answer 1

这是合理的，是的。

要创建这样的组件，只需从例如 TCustomPanel 派生一个新类，并将子组件作为字段添加到类中。

像这样：

TMyDatePicker = class(TCustomPanel)
protected
  FChooseButton: TButton;
  FClearButton: TButton;
public
  constructor Create(Owner: TComponent); override; 
end;

constructor TMyDatePicker.Create(Owner: TComponent)
begin
  // Inherited
  Inherited;

  // Create Choose Button
  FChooseButton := TButton.Create(Self);
  FChooseButton.Parent := Self;
  FChooseButton.Align := alRight;
  FChooseButton.Caption := 'Choose';

  // Create Clear Button
  FClearButton := TButton.Create(Self);
  FClearButton.Parent := Self;
  FClearButton.Align := alRight;
  FClearButton.Caption := 'Clear';
end;

要添加事件处理程序，只需将新的受保护过程添加到您的类。

例如：

procedure TMyDatePicker.HandleChooseButtonClick(Sender: TObject)
begin
  // Do whatever you want to do when the choose button is clicked
end;

然后将事件处理程序连接到选择按钮的 OnClick 事件（这应该在类的 Create 方法中完成）：

FChooseButton.OnClick := HandleChooseButtonClick;

当然，还有比这更多的功能，例如微调按钮的对齐方式和添加图标。您还需要创建自己的事件，例如 OnDateSelected 或 OnDateModified。

但是，除此之外，我认为上面的例子至少应该让你继续前进。 :)

Answer 2

是的，构建这样的组件绝对是明智的，因为它节省了大量的编码。

以下是半可视化创建它们的指南：How to Build Aggregate/Composite Components in Delphi

基本上，本文档中概述的过程是：

1. 在 Delphi 的表单中设计组件的布局，将所有组件放置在 TPanel（或其后代）中。
2. 选择并复制面板并将其粘贴到文本文件中。
3. 将“=”的所有实例替换为“:=”，并添加一个分号 每行的结尾。
4. 将所有 DFM“对象”声明行转换为适当的对象 构造函数代码，将所有可视控件的父级设置为 容器面板。
5. 清除所有剩余代码。位图将需要放置在 资源文件。
6. 将这个新的帕斯卡代码放在你的创建构造函数中 零件。在构造函数中，将对象部分分组到 适当的子组件创建者。

---

我认为文档的错误之处在于，例如，示例组件是从 TPanel 继承而来的，而对我来说，使用 TCustomPanel 并仅公开您想要的方法更有意义。

但它也解释了如何添加 OnClick 处理程序等。

这种方法的优点是您可以直观地完成 Panel 中组件的布局。

Answer 3

开发复合控件的一种非常实用的方法是使用TFrame 作为它的基础。

这样，您可以直观地设计控件，并使用事件或继承

您需要注意几件事，但总而言之，这比手动编写所有内容要容易得多（就像其他一些答案所建议的那样）。

注意事项（不是完整列表，但很接近）：

• don't forget the sprig
• 在设计时（在 TFrame 中和将复合控件放在设计图面上时），标记为 Visible=True 的子控件仍然可见。解决此问题的两种方法：销毁这些控件，或将它们移动到不可见区域（顶部/左侧为负值或大于父级宽度/高度的值）
• 将 TFrame 后代注册为组件，其中 TFrame 后代也是项目的一部分，有时会使 IDE 感到困惑。简单的解决方案：调用 TFrame 后代“TMyCustomControl”，从中派生“TMyControl”，并将“TMyControl”注册为组件。

另外，您不必从 TPanel 中移除斜角/边框和标题。

Answer 4

另一种方法是将组件组设为component template。