如何通过代码在程序运行时修改form窗体外观

完全可以在程序运行过程中通过代码修改Form外观。你提到的依次选择「Project」选项卡、「Options」选项、「Appearance」设置项的操作，属于设计阶段的静态配置，仅用来设置程序启动时的默认外观，不会限制运行阶段的动态调整能力。

不同桌面开发框架的API命名略有差异，以下以最常用的Delphi VCL开发场景为例，核心逻辑在WinForm、WPF等其他框架中通用：

• 基础外观属性调整
  直接对目标Form实例的内置属性赋值即可，代码执行后即时生效，覆盖设计时配置：

  // 写在窗体的事件方法中即可触发修改
  procedure TForm1.ChangeAppearanceBtnClick(Sender: TObject);
  begin
    // 修改窗体标题
    Caption := '运行时更新的窗体标题';
    // 修改窗体背景色
    Color := clLightCyan;
    // 修改边框样式，比如改为固定大小的对话框模式
    BorderStyle := bsDialog;
    // 调整窗体透明度
    AlphaBlend := True;
    AlphaBlendValue := 210;
    // 隐藏最大化、最小化按钮
    BorderIcons := BorderIcons - [biMaximize, biMinimize];
  end;
  

• 全局皮肤/主题切换（对应Appearance面板的样式配置）
  如果需要切换整套窗体皮肤，只要对应样式资源已经被编译到程序中，直接调用样式管理接口即可实时切换，无需重启程序：

  // 需要先引入Vcl.Themes、Vcl.Styles单元
  procedure TForm1.SwitchSkinBtnClick(Sender: TObject);
  begin
    // 切换到内置的深色Carbon样式
    TStyleManager.TrySetStyle('Carbon');
    // 切回Windows原生样式
    // TStyleManager.TrySetStyle('Windows');
  end;
  

• 自定义异形/特殊效果外观
  如果内置属性、官方样式满足不了需求，可以通过Windows API或者自定义绘制实现异形窗体、自绘标题栏等特殊效果，比如做圆角窗体：

  procedure TForm1.FormCreate(Sender: TObject);
  var
    FormRgn: HRGN;
  begin
    // 创建圆角矩形区域，将窗体裁剪为圆角形状
    FormRgn := CreateRoundRectRgn(0, 0, Width, Height, 25, 25);
    SetWindowRgn(Handle, FormRgn, True);
    DeleteObject(FormRgn);
  end;
  

注意：如果要动态切换自定义第三方样式，需要提前把对应样式文件作为资源编译进程序，否则运行时会因为找不到对应资源导致切换失败。

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