Delphi MDI应用：禁止重复打开同一客户表单并前置已打开表单

针对你的Delphi MDI应用需求，我整理了一套清晰的实现方案，包含单开查询窗体、同客户编辑窗体防重复激活这两个核心功能，直接上代码和步骤：

利用MDI主窗体的MDIChildren集合遍历已打开的子窗体，结合窗体类型、客户唯一标识（ID/账号）做判断：

• 对于查询窗体：用全局/成员变量跟踪实例，确保仅创建一次
• 对于编辑窗体：遍历检查是否已有对应客户的实例，存在则激活，否则新建

1. 客户查询子表单（单开控制） #

首先在MDI主窗体中声明一个成员变量来跟踪查询窗体实例：

type
  TMainForm = class(TForm)
    // ... 你的控件和事件声明
  private
    frmCustomerQuery: TfrmCustomerQuery; // 跟踪查询窗体实例
  public
    procedure OpenCustomerQuery;
  end;

然后实现打开查询窗体的方法：

procedure TMainForm.OpenCustomerQuery;
begin
  if not Assigned(frmCustomerQuery) then
  begin
    frmCustomerQuery := TfrmCustomerQuery.Create(Self);
    frmCustomerQuery.Caption := '客户查询';
    frmCustomerQuery.Show;
  end
  else
  begin
    // 若已打开，将其前置显示并聚焦
    frmCustomerQuery.BringToFront;
    frmCustomerQuery.SetFocus;
  end;
end;

注意：必须在查询窗体的OnDestroy事件中清空跟踪变量，避免悬垂指针：

procedure TfrmCustomerQuery.FormDestroy(Sender: TObject);
begin
  MainForm.frmCustomerQuery := nil; // MainForm是你的MDI主窗体实例
end;

2. 客户查看/编辑表单（同客户防重复+激活） #

首先给编辑窗体添加一个公共属性，存储当前客户的唯一标识（优先用ID，比账号更可靠，避免账号重复场景）：

type
  TfrmCustomerEdit = class(TForm)
    // ... 你的控件和事件声明
  public
    CustomerID: string; // 存储当前客户的唯一ID
    procedure LoadCustomerData(const ACustomerID: string); // 加载客户数据的自定义方法
  end;

然后在MDI主窗体中实现打开编辑窗体的核心逻辑，先遍历已打开的子窗体检查是否存在对应客户：

procedure TMainForm.OpenCustomerEdit(const ACustomerID, ACustomerAccount: string);
var
  i: Integer;
  frmEdit: TfrmCustomerEdit;
begin
  // 遍历所有MDI子窗体，查找对应客户的编辑窗体
  for i := 0 to MDIChildCount - 1 do
  begin
    if MDIChildren[i] is TfrmCustomerEdit then
    begin
      frmEdit := TfrmCustomerEdit(MDIChildren[i]);
      if frmEdit.CustomerID = ACustomerID then
      begin
        // 找到已存在的窗体，激活并前置
        frmEdit.BringToFront;
        frmEdit.SetFocus;
        Exit; // 终止方法，无需创建新窗体
      end;
    end;
  end;

  // 未找到对应客户的窗体，创建新实例
  frmEdit := TfrmCustomerEdit.Create(Self);
  frmEdit.CustomerID := ACustomerID;
  frmEdit.Caption := ACustomerAccount; // 设置标题为客户账号
  frmEdit.LoadCustomerData(ACustomerID); // 加载该客户的具体数据
  frmEdit.Show;
end;

优化：封装查找逻辑（可选） #

如果需要多次调用查找逻辑，可以把遍历部分封装成一个独立函数，让代码更简洁：

function TMainForm.FindCustomerEditForm(const ACustomerID: string): TfrmCustomerEdit;
var
  i: Integer;
begin
  Result := nil;
  for i := 0 to MDIChildCount - 1 do
  begin
    if MDIChildren[i] is TfrmCustomerEdit then
    begin
      if TfrmCustomerEdit(MDIChildren[i]).CustomerID = ACustomerID then
      begin
        Result := TfrmCustomerEdit(MDIChildren[i]);
        Break;
      end;
    end;
  end;
end;

此时打开方法可以简化为：

procedure TMainForm.OpenCustomerEdit(const ACustomerID, ACustomerAccount: string);
var
  frmEdit: TfrmCustomerEdit;
begin
  frmEdit := FindCustomerEditForm(ACustomerID);
  if Assigned(frmEdit) then
  begin
    frmEdit.BringToFront;
    frmEdit.SetFocus;
    Exit;
  end;

  // 创建新窗体的逻辑同上...
end;

• 创建MDI子窗体时，必须把Owner参数设为MDI主窗体（Self），这样窗体才会被正确加入MDIChildren集合
• 如果你的客户唯一标识是整数类型，只需把CustomerID的类型改成Integer即可，逻辑完全通用
• 若需要在编辑窗体中修改客户账号后同步标题，可以在数据加载或账号修改时更新Caption属性

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