创建复合控件是明智的吗？

Question

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

“＆amp; Dates”标题是一个标签，“All Dates”部分是第二个标签。当用户单击“选择”按钮时，弹出一个表单，向用户显示一对日期/时间控件和确定/取消按钮。如果用户在选择某些日期后点击确定，则第二个标签将更改为“从mm / dd / yyyy到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. 将这个新的pascal代码放在你的创建构造函数中 零件。在构造函数中，组下的对象部分 适当的子组件创建者。

---

我觉得错误的文档是，例如，示例组件是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。