如何在Delphi TMS Web Core网站中动态修改页面标题？

针对你描述的多Frame页面切换场景，以下是两种Delphi开发环境下的实现方案：

一、使用TWebBrowser控件的VCL桌面应用 #

如果你的程序通过TWebBrowser加载包含多Frame的页面，可通过操作HTML DOM修改页面标题：

实现步骤 #

1. 在菜单点击事件中，先根据选中项确定目标标题，再通过DOM操作修改<title>标签内容：

uses MSHTML;

procedure TMainForm.MenuItemClick(Sender: TObject);
var
  Doc: IHTMLDocument2;
  TitleElem: IHTMLTitleElement;
  NewTitle: string;
begin
  // 根据点击的菜单项设置对应标题
  if Sender = miCustomer then
    NewTitle := '客户管理'
  else if Sender = miOrder then
    NewTitle := '订单处理'
  else if Sender = miReport then
    NewTitle := '报表统计';

  // 获取页面文档对象
  if WebBrowser1.Document.QueryInterface(IHTMLDocument2, Doc) = S_OK then
  begin
    // 获取<title>元素
    TitleElem := Doc.getElementsByTagName('title').item(0, 0) as IHTMLTitleElement;
    if Assigned(TitleElem) then
    begin
      // 设置新标题
      TitleElem.text := NewTitle;
      // 可选：同步更新窗体标题
      Self.Caption := NewTitle;
    end;
  end;

  // 执行Frame切换逻辑（示例）
  FrameCustomer.Visible := (Sender = miCustomer);
  FrameOrder.Visible := (Sender = miOrder);
  FrameReport.Visible := (Sender = miReport);
end;

注意事项 #

• 需确保页面已完全加载（可通过WebBrowser1.ReadyState = READYSTATE_COMPLETE判断）
• 必须引用MSHTML单元

二、使用IntraWeb开发的Web应用 #

如果你的网站基于Delphi IntraWeb框架开发，可直接通过WebApplication对象修改标题：

实现步骤 #

在菜单项的点击事件中，切换Frame显示状态后，直接设置WebApplication.Title：

uses IWApplication;

procedure TMainForm.miCustomerClick(Sender: TObject);
begin
  // 切换Frame显示
  FrameCustomer.Visible := True;
  FrameOrder.Visible := False;
  FrameReport.Visible := False;

  // 修改浏览器标签标题
  WebApplication.Title := '客户管理';
end;

procedure TMainForm.miOrderClick(Sender: TObject);
begin
  FrameCustomer.Visible := False;
  FrameOrder.Visible := True;
  FrameReport.Visible := False;

  WebApplication.Title := '订单处理';
end;

注意事项 #

• 需引用IWApplication单元
• WebApplication.Title会自动同步到HTML页面的<title>标签，无需手动操作DOM

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