delphi - Delphi コンポーネント テンプレートの作成

Question

私は Delphi アプリケーションで作業しています。以下に示す 1 つのフォームを作成しました。

コードを使用して、このコントロールからコンポーネントを作成したかったのです。ただし、コンポーネントを介してではありません->コンポーネントテンプレートの作成->など。

Delphi コードを使用してフォーム コントロールからコンポーネント テンプレートを作成するにはどうすればよいですか?? 事前にサンクス。

Answer 1

または、そのコントロールのグループを 1 つのコンポーネントとして使用する場合は、次のようにユニットをパッケージにインストールできます。

unit EditGroup;

interface

uses
  SysUtils, Classes, Graphics, Controls, StdCtrls;

type
  TEditGroup = class(TCustomControl)
  private
    FButton: TButton;
    FFirstEdit: TEdit;
    FFirstLabel: TLabel;
    FSecondEdit: TEdit;
    FSecondLabel: TLabel;
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Button: TButton read FButton;
    property FirstEdit: TEdit read FFirstEdit;
    property FirstLabel: TLabel read FFirstLabel;
    property SecondEdit: TEdit read FSecondEdit;
    property SecondLabel: TLabel read FSecondLabel;
  end;

procedure Register;

implementation

{ TEditGroup }

constructor TEditGroup.Create(AOwner: TComponent);
begin
  inherited;

  Width := 213;
  Height := 104;
  Color := clWhite;

  FFirstLabel := TLabel.Create(Self);
  FFirstLabel.SetSubComponent(True);
  FFirstLabel.Parent := Self;
  FFirstLabel.Top := 11;
  FFirstLabel.Left := 8;
  FFirstLabel.Name := 'FirstLabel';

  FFirstEdit := TEdit.Create(Self);
  FFirstEdit.SetSubComponent(True);
  FFirstEdit.Parent := Self;
  FFirstEdit.Top := 8;
  FFirstEdit.Left := 84;
  FFirstEdit.Width := 121;
  FFirstEdit.Name := 'FirstEdit';

  FSecondLabel := TLabel.Create(Self);
  FSecondLabel.SetSubComponent(True);
  FSecondLabel.Parent := Self;
  FSecondLabel.Top := 39;
  FSecondLabel.Left := 8;
  FSecondLabel.Name := 'SecondLabel';

  FSecondEdit := TEdit.Create(Self);
  FSecondEdit.SetSubComponent(True);
  FSecondEdit.Parent := Self;
  FSecondEdit.Top := 36;
  FSecondEdit.Left := 84;
  FSecondEdit.Width := 121;
  FSecondEdit.Name := 'SecondEdit';

  FButton := TButton.Create(Self);
  FButton.SetSubComponent(True);
  FButton.Parent := Self;
  FButton.Top := 71;
  FButton.Left := 69;
  FButton.Width := 75;
  FButton.Name := 'Button';
end;

destructor TEditGroup.Destroy;
begin
  FButton.Free;
  FFirstEdit.Free;
  FFirstLabel.Free;
  FSecondEdit.Free;
  FSecondLabel.Free;
  inherited;
end;

procedure TEditGroup.Paint;
begin
  Canvas.Rectangle(ClientRect);
end;

procedure Register;
begin
  RegisterComponents('Stack Overflow', [TEditGroup]);
end;

end.

設計時の外観は次のとおりです。

Answer 2

フォームを右クリックして [テキストとして表示]を選択すると、すでに長い道のりです。=すべての をに置き換えるだけ:=で、 を追加してすべてのコンポーネントを作成できます.Create(Self)。

したがって、このテキスト：

object Form1: TForm1
  Left = 300
  Top = 281
  Width = 630
  Height = 372
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 14
    Top = 28
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object Edit1: TEdit
    Left = 63
    Top = 24
    Width = 121
    Height = 21
    TabOrder = 0
    Text = 'Edit1'
  end
end

次のように変換する必要があります。

type
  TMyForm1 = class(TForm)
  private
    Label1: TLabel;
    Edit1: TEdit;
  public
    constructor Create(AOwner: TComponent); override;
  end;

constructor TMyForm1.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width := 630;
  Height := 372;
  Caption := 'Form1';
  Color := clBtnFace;
  ...
  Label1 := TLabel.Create(Self);
  with Label1 do
  begin
    Left := 14;
    Top := 28;
    Width := 32;
    Height := 13;
    Caption := 'Label1';
  end;
  Edit1 := TEdit.Create(Self);
  with Edit1 do
  ...
end;

ただし、この特別なタスクのためのツールもあります。「Delphi DFM から Delphi ソース コードへの変換ツールはありますか?」を参照してください。.