我有这个应用程序在许多地方重用了一种成语。有一个 TPanel，上面有一些标签和按钮。目的是允许用户选择日期范围。
“&Dates”标题是一个标签，“All Dates”部分是第二个标签。当用户单击“选择”按钮时，会弹出一个表单，向用户显示一对日期/时间控件和确定/取消按钮。如果用户在选择某些日期后点击确定，则第二个标签将更改为“从 mm/dd/yyyy 到 mm/dd/yyyy”。
创建一个封装这些控件的组件是否合理？我一直在查看组件编写者的各种资源，但它们似乎没有指出我正在考虑的问题，例如处理按钮的 onclick 事件。如果这是一个合理的尝试，我也很感激关于如何制作这种“复合控件”的描述的指针。
这是合理的，是的。
要创建这样的组件，只需从例如 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。
但是，除此之外，我认为上面的例子至少应该让你继续前进。:)
是的，构建这样的组件绝对是明智的，因为它节省了大量的编码。
以下是半可视化创建它们的指南：How to Build Aggregate/Composite Components in Delphi
本质上，本文档中概述的过程是：
我认为文档错误的地方是，例如，示例组件是从 TPanel 继承的，而对我来说，使用 TCustomPanel 并仅公开您想要的方法更有意义。
但它也解释了如何添加 OnClick 处理程序等。
这种方法的优点是您可以直观地完成 Panel 中组件的布局。
开发复合控件的一种非常实用的方法是使用TFrame作为它的基础。
这样，您可以直观地设计控件，并使用事件或继承
您需要注意几件事，但总而言之，这比手动编码所有内容要容易得多（就像其他一些答案所暗示的那样）。
需要注意的事项（不是完整列表，但很接近）：
作为奖励，您不必从 TPanel 中删除斜角/边框和标题。
还有一种方法是使组件组成为组件模板。