delphi - 如何在Delphi中创建并实例化用户定义的组件？

Question

我想为我的应用程序创建一个搜索框。搜索框将包括两部分:搜索字段和搜索按钮。我认为，正确的做法是将这两个组件放入一个组盒中，该组盒将用作将它们容纳在内部的容器。我认为我需要创建一个从 TGroupBox 类派生的类，该类在创建时将接收一个表名作为要搜索的参数。两个组件(搜索框和按钮)将成为它的子组件 - 这些组件是其工作原理的基本原理。

这张图片说明了搜索框的外观:

这是我到目前为止所做的事情:

unit clsTSearchBox;

interface

    uses Classes, SysUtils, StdCtrls, Dialogs, ADODB, DataModule;

    type
        TSearchBox = class (TGroupBox)
            constructor CreateNew(AOwner: TObject; Dummy: Integer);     
        end;

implementation

    constructor TSearchBox.CreateNew(AOwner: TObject; Dummy: Integer);
    begin
        inherited;
        Self.Height  := 200;
        Self.Width   := 400;
        Self.Caption := 'Test:'
    end;

end.

如您所见，不多。我刚刚创建了一个从 TGroupBox 类派生的类。请帮助我编写正确的代码来实例化表单上的搜索框组件，因为我真的不知道该怎么做。我只需要正确创建对象的代码。

提前谢谢大家。

Answer 1

听起来如果您将所有 3 个组件放入 TFrame 中，在控件上添加所需的任何代码，然后实例化框架的实例，可能会更容易。

然后框架包含组框、编辑和按钮。您只需使用 TYourFrame.Create 创建框架或在设计时进行即可。