delphi11.3中运行期更换界面风格

在Delphi 11.3中，运行期更换界面风格可以通过使用主题（Theme）实现。主题是一种用于控制界面样式的组件，可以在运行时动态地更改应用程序的外观。

要使用主题，首先需要将主题文件（.vsf文件）添加到Delphi项目中。可以通过菜单中的“项目”->“资源和映像”->“主题”选项来添加主题文件。然后，在设计时，将TStyleBook组件拖放到主窗体上。

接下来，在代码中，可以通过以下方式来更换界面风格：

1. 创建一个TStyleManager对象，这是主题管理器对象，可以控制应用程序的主题。
2. 调用TStyleManager.TrySetStyle函数，将主题文件的路径作为参数，尝试更换主题。该函数将返回一个布尔值，表示更换主题是否成功。
3. 如果更换主题成功，可以调用TStyleManager.SetStyle函数，将主题应用到应用程序的界面上。否则，可以在代码中处理错误情况。

以下是一个示例代码，演示如何在Delphi 11.3中运行期更换界面风格：

procedure TForm1.ChangeStyle(const AStyleName: string);
var
  StyleManager: TStyleManager;
  StyleInfo: TStyleInfo;
begin
  StyleManager := TStyleManager.Create;
  try
    if StyleManager.TrySetStyle(AStyleName) then
    begin
      StyleInfo := StyleManager.Style[StyleManager.IndexOf(AStyleName)];
      StyleManager.SetStyle(StyleInfo);
    end
    else
    begin
      // 处理更换主题失败的情况
    end;
  finally
    StyleManager.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeStyle('C:\Path\To\MyTheme.vsf');  // 更换主题文件的路径
end;

使用以上代码中的ChangeStyle过程，可以在运行时更换界面风格。在Button1Click事件处理程序中，调用ChangeStyle函数，并传入主题文件的路径，即可将主题应用到应用程序的界面上。

需要注意的是，主题文件必须事先添加到项目中，并且必须是有效的主题文件才能成功更换界面风格。另外，主题文件的路径可以是相对路径或绝对路径。