Delphi VCL 动态创建按钮与表单：如何让不同按钮打开对应新建表单

利用事件方法自带的Sender参数拿到触发点击的动态按钮，通过给每个动态按钮的Tag属性存储对应动态表单的索引，在点击时根据索引从统一的表单列表中取出对应实例，完成弹出/显示操作。

• 按钮和动态表单没有建立直接关联，独立的全局计数变量i/a容易出现序号错位
• 在with TButton.Create块内误写Self.Caption，会反复修改主窗体标题而非按钮自身标题
• 给独立顶层TForm设置Parent属性、绑定冗余的OnClick事件，属于无效代码，甚至可能造成窗体显示异常
• 动态生成的表单没有统一的存储位置，无法在点击时被准确调用

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { 统一存储所有动态生成的子表单 }
    FChildForms: TList<TForm>;
  public
    { Public-Deklarationen }
    procedure myClick(Sender: TObject);
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
  // 初始化表单存储列表
  FChildForms := TList<TForm>.Create;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  // 释放列表资源（表单实例因为Owner是Self，会被Delphi自动回收）
  FChildForms.Free;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  NewBtn: TButton;
  NewForm: TForm;
  FormIdx: Integer;
begin
  // 用当前列表长度作为新表单、新按钮的统一索引，保证序号同步
  FormIdx := FChildForms.Count;

  // 1. 创建动态按钮
  NewBtn := TButton.Create(Self);
  with NewBtn do
  begin
    Left := 80;
    Top := 50 + FormIdx * 60;
    Width := 300;
    Height := 50;
    Name := 'Liste' + IntToStr(FormIdx);
    // 修正原代码的错误：直接设置按钮自身的标题
    Caption := '打开表单 ' + IntToStr(FormIdx);
    // 给Tag属性存对应表单的索引，建立按钮和表单的关联
    Tag := FormIdx;
    OnClick := MyClick;
    Parent := Form2;
  end;

  // 2. 创建对应的动态表单
  NewForm := TForm.Create(Self);
  with NewForm do
  begin
    Width := 1000;
    Height := 700;
    Name := 'Erinnerung' + IntToStr(FormIdx);
    Caption := 'Erinnerung' + IntToStr(FormIdx);
    // 去掉原代码中无效的Parent设置、冗余OnClick绑定
    Position := poScreenCenter;
  end;
  // 把新表单存入统一列表
  FChildForms.Add(NewForm);
end;

procedure TForm2.myClick(Sender: TObject);
var
  ClickedBtn: TButton;
  TargetForm: TForm;
begin
  // 先判断触发事件的对象是否为按钮，避免类型转换异常
  if not (Sender is TButton) then Exit;

  ClickedBtn := TButton(Sender);
  // 根据按钮存储的Tag索引取出对应表单
  TargetForm := FChildForms[ClickedBtn.Tag];

  // 表单显示逻辑：如果已经显示就提到前台，没显示就弹出
  if TargetForm.Visible then
    TargetForm.BringToFront
  else
    TargetForm.Show; // 如需模态弹窗可替换为ShowModal
end;

end.

• 关联逻辑：每个动态按钮创建时，把对应表单在列表中的索引存在按钮自带的Tag整数属性里，不需要额外写自定义控件
• 索引同步：用动态表单列表的当前长度作为统一索引，不再依赖独立的全局计数变量，从根本上避免序号错位
• 资源管理：所有动态创建的控件、表单的Owner都设为主窗体Self，主窗体销毁时Delphi会自动回收全部资源，不需要手动写释放逻辑
• 嵌入适配：如果需要把动态表单嵌入主窗体的固定面板区域，只需在设置表单属性时补充BorderStyle := bsNone; Parent := Panel1; Align := alClient;即可，不需要修改其他关联逻辑
• 安全防护：myClick里先做类型判断，避免其他控件误触发时出现类型转换报错

内容的提问来源于stack exchange，提问作者user15754845