在 Delphi 中，要使子窗体在 Windows 状态栏显示文本，你需要涉及窗体的 TStatusBar 和子窗体的 Handle。以下是一个简单的步骤和示例代码，以帮助你理解和实现：

1. 创建一个 TForm1 主窗口，并添加一个 TStatusBar 组件到底部，这是用来显示状态信息的控件。

2. 假设你有一个名为 Form2 的子窗体，需要在 Form1 中获取其 Handle（子窗体的句柄）：

uses

  Winapi.Windows, Winapi Messages, System.SysUtils, Vcl.Controls, Vcl.Forms, Vcl.Graphics;



type

  TMyForm1 = class(TForm)

  private

    SubFormHandle: Integer; // 存储子窗体 Handle

  public

    procedure FormCreate(Sender: TObject);

  end;



procedure TMyForm1.FormCreate(Sender: TObject);

begin

  // 获取子窗体 Form2 的 Handle

  if Assigned(Form2) then

    SubFormHandle := Form2.Forms[].Handle;

end;

3. 在 Form1 的 OnCreate 或 FormCreate 类事件中，获取子窗体并更新状态栏。你可以通过子窗体的 Handle 动态更新状态栏的信息：

procedure TMyForm1.FormCreate(Sender: TObject);

begin

  // ...

  // 添加子窗体到状态栏

  StatusBar1.Items.Add('From Form2: ', SubFormHandle); // 设置状态栏文本

  // 或者

  TStatusBar(nil).CalcText(SBASIC, SubFormHandle, 'From Form2: ', , StatusBar1.Items[1].TextLength);

end;



// 在需要更新状态时调用

procedure TMyForm1.UpdateStatusBar;

begin

  if Assigned(SubFormHandle) then

  begin

    // 更新状态信息

    TStatusBar(nil).CalcText(SBASIC, SubFormHandle, 'New Text from Form2', , StatusBar1.Items[1].TextLength);

  end;

end;

请注意，上述代码假设你有一个名为 Form2 的子窗体实例，并且你想要基于它本身的特性（如文本，数据等）来改变状态栏的显示。实际应用时，记得用你的子窗体实例来替换 `Form2` 和存储其 Handle 的部分。

记住，Delphi 中窗口的 `Forms[]` 获取第一层子窗体（如果是多层嵌套窗体，可能需要根据实际情况调整）。如果子窗体未显示，那么 `FormForms` 可能是空的或不存在。因此，应该检查这个条件以避免在试图操作未加载的子窗体时出现错误。