アプリケーションの検索ボックスを作成したいと考えています。検索ボックスには、検索フィールドと検索ボタンの 2 つが含まれます。正しいことは、これら 2 つのコンポーネントをグループ ボックスに入れ、それらを内部に保持するためのコンテナーとして機能することだと思います。TGroupBox クラスから派生したクラスを作成する必要があると考えました。このクラスは、作成時に検索対象のパラメータとしてテーブル名を受け取ります。検索ボックスとボタンの 2 つのコンポーネントは、その子になります。それがどのように機能するかの基本原則。
この図は、検索ボックスがどのように表示されるかを示しています。
これまでに行ったことは次のとおりです。
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 クラスから派生したクラスを作成しました。その方法が本当にわからないので、フォームでその検索ボックス コンポーネントをインスタンス化するための適切なコードを書くのを手伝ってください。適切なオブジェクトを作成するためのコードのみが必要です。
よろしくお願いします。