Delphi技术问询：窗体实例管控与TPanel嵌入窗体的显示销毁

我来帮你搞定这两个Delphi开发里的核心需求，都是日常项目里高频用到的场景，直接上实操思路和代码：

一、获取并销毁窗体实例 #

获取窗体实例的两种常用方式 #

• 方式1：通过窗体类名查找
  如果你知道目标窗体的类名（比如TForm2），可以遍历Screen.Forms集合来定位：

  function GetFormInstance(FormClass: TFormClass): TForm;
  var
    i: Integer;
  begin
    Result := nil;
    for i := 0 to Screen.FormCount - 1 do
    begin
      if Screen.Forms[i].ClassType = FormClass then
      begin
        Result := Screen.Forms[i];
        Break;
      end;
    end;
  end;
  

• 方式2：通过窗体标题查找
  要是窗体标题固定，也可以用FindWindowAPI（需要引用Windows单元）：

  function GetFormByCaption(const Caption: string): TForm;
  var
    hWnd: HWND;
    i: Integer;
  begin
    Result := nil;
    hWnd := FindWindow(nil, PChar(Caption));
    if hWnd <> 0 then
    begin
      for i := 0 to Screen.FormCount - 1 do
      begin
        if Screen.Forms[i].Handle = hWnd then
        begin
          Result := Screen.Forms[i];
          Break;
        end;
      end;
    end;
  end;
  

安全销毁窗体实例 #

销毁时一定要先判断窗体是否存在，避免空指针异常，推荐用FreeAndNil：

procedure DestroyFormInstance(var AForm: TForm);
begin
  if Assigned(AForm) then
  begin
    AForm.Close;
    FreeAndNil(AForm);
  end;
end;

注意：如果窗体是自动创建的（在项目选项里勾选了），不要直接Free，而是用Close触发它的销毁逻辑，避免项目报错。

二、主窗体TPanel承载子窗体+切换/销毁（含定时销毁） #

这个需求的核心是把子窗体的Parent设置为TPanel，同时处理好切换时的销毁逻辑，以及定时触发的功能。

1. 基础嵌入逻辑 #

先准备主窗体：放一个TPanel（比如命名为pnlContainer），再放几个按钮（比如btnShowForm2、btnShowForm3、btnCloseCurrent），再加一个TTimer（命名为tmrAutoClose）用于定时销毁。

子窗体（比如TForm2、TForm3）需要做的设置：

• 设置BorderStyle为bsNone（去掉边框）
• 设置Align为alClient（铺满TPanel）

2. 按钮切换显示子窗体 #

在主窗体里定义一个全局变量记录当前嵌入的子窗体：

private
  FCurrentChildForm: TForm;

然后写一个通用的创建并嵌入子窗体的方法：

procedure TMainForm.CreateAndEmbedForm(FormClass: TFormClass);
begin
  // 先销毁当前的子窗体
  DestroyFormInstance(FCurrentChildForm);
  // 创建新的子窗体并嵌入
  FCurrentChildForm := FormClass.Create(nil);
  FCurrentChildForm.Parent := pnlContainer;
  FCurrentChildForm.Show;
end;

按钮点击事件示例：

procedure TMainForm.btnShowForm2Click(Sender: TObject);
begin
  CreateAndEmbedForm(TForm2);
end;

procedure TMainForm.btnShowForm3Click(Sender: TObject);
begin
  CreateAndEmbedForm(TForm3);
end;

3. 手动关闭当前子窗体 #

直接调用之前的销毁方法即可：

procedure TMainForm.btnCloseCurrentClick(Sender: TObject);
begin
  DestroyFormInstance(FCurrentChildForm);
end;

4. 定时销毁子窗体 #

设置TTimer的Interval（比如5000，即5秒），然后在OnTimer事件里执行销毁：

procedure TMainForm.tmrAutoCloseTimer(Sender: TObject);
begin
  DestroyFormInstance(FCurrentChildForm);
  tmrAutoClose.Enabled := False; // 触发后关闭定时器，避免重复执行
end;

如果你需要每次打开子窗体就启动定时，可以在CreateAndEmbedForm方法最后加上tmrAutoClose.Enabled := True;

内容的提问来源于stack exchange，提问作者j.kaspar