企业官网建设流程全解析

简介：面向Delphi开发者的TMS VCL UI Pack v13.5.2.0组件包，专为VCL框架提供高级用户界面控件，适合需要在Windows桌面应用中快速构建现代化界面的中高级开发人员。压缩包体积约105.35MB，共收录2000个文件，以pas源文件、dfm窗体、res资源、dproj项目文件为主，另含pdf说明文档、ico图标和示例代码，既能直接安装使用，也便于研究控件实现细节。目前已有73人学习下载，属于较新的控件版本更新。通过这份资源，开发者可以获取TMS UI Pack的完整组件体系，覆盖皮肤界面、自定义按钮、高级列表视图、图表图形等常见交互模块，免去从零封装底层的重复工作；同时附带工程文件与演示程序，便于对照学习控件属性、事件和跨版本适配技巧，有效提升桌面应用的视觉表现与开发效率。

1. 为什么2025年还在写Delphi界面的人绕不开TMS VCL UI Pack

当一个用Delphi 7维护了十年的进销存系统被客户要求“把界面改得现代一点”，你先遇到的不是业务逻辑问题，而是那些画着灰色凸起边框的TButton，以及列宽行高都不可调的TListView。TMS VCL UI Pack v13.5.2.0（April 16, 2025）就是在VCL这套事件驱动框架上提供一整套替换控件的工具包：高光按钮、渐变面板、可排序网格、格式化日期选择器，覆盖桌面应用80%以上的界面交互。它不改变业务代码里的事件绑定，替换控件后Click、DblClick、Change依旧照常触发，所以老项目换壳和新项目快速成型都适用。如果你做的是局域网桌面客户端，UniGUI for Delphi那套偏Web的方案并不合适，原生VCL控件的交付效率和维护成本仍然最可控。

2. 版本识别、安装路径与组件注册：把13.5.2.0装进Delphi 12.3

2.1 解压后先看目录，再决定怎么装

压缩包里那些Bruno Fierens相关的.adl、.adu文件属于TMS安装器的注册记录，不参与编译；movefiles.bat用于在安装器没有自动布局时把BPL和DCP移动到对应目录。真正决定能不能编译的是packages和Bin两个文件夹。很多人在这一步犯的错，是把source目录整段塞进Library Path，结果IDE索引时间翻倍，编译时还会报“Unit XX was compiled with a different version”的警告，原因就是同一单元被多个路径重复引入。

我一般先打开packages目录确认子目录命名。TMS从v10开始会按RAD Studio大版本分包，比如Delphi_10_4、Delphi_11、Delphi_12，到12.3这版则可能出现Delphi_12_3或并列的Delphi_12目录。优先选命名精确到小版本的目录，因为它对应的编译器版本才和IDE完全一致。

2.2 两条安装路径：GetIt和手动包编译

在RAD Studio 12.3里，最省事的是用IDE内置的GetIt Package Manager，搜“TMS”，选择“TMS VCL UI Pack”，安装器会自动匹配当前IDE版本并完成BPL注册和Library路径追加。但GetIt对网络环境敏感，下载中断后包列表会停在半注册状态，离线环境的团队我更建议用压缩包手动装。手动安装链路是：先用IDE打开packages\Delphi_12_3下设计期包，右键Compile；再打开对应的设计期包右键Install；最后在Tools > Options > Library里把source路径追加到Windows平台。

如果要在多台机器复现同一环境，批处理比反复点IDE更可控。下面这个脚本用于检查解压目录里BPL是否完整，适合安装前对账：

@echo off set "VER=Delphi_12_3" set "SRC=C:\TMSSoftware\TMS VCL UI Pack\Bin\%VER%" if not exist "%SRC%" ( echo ERROR: bin dir not found: %SRC% exit /b 1 ) echo Found BPL files: dir /b "%SRC%\*.bpl" pause

脚本逻辑：先检查指定版本的Bin目录是否存在，目录不存在直接退出并返回错误码1；存在则列出所有BPL文件名称。参数方面，VER必须改成和packages目录一致的文件夹名，SRC对应你实际的解压路径。检查重点是看BPL数量是否为两位数，如果只有三五个文件，说明压缩包解压不完整或者下载过程丢包。

2.3 安装完成后的三个验证动作

安装完成先做三件事。第一，组件面板搜索栏输入TAdvButton，确认TMS页已加载；第二，新建VCL Forms工程，往窗体拖一个TAdvStringGrid，Ctrl+F9编译，确认没有“File not found”类错误；第三，直接运行空窗体，看IDE是否弹出“Package ... is not loaded”的对话框。三件事都通过，再开始改业务界面。

提示：不要刚设置完Library路径就进行全量编译。先编译一次基础包，再用开始菜单里的TMS Demos工程做验证，Demos会引用到几乎全部子包，全量编译通过说明环境是干净的。

3. 动手替换界面：按钮、面板圆角与报表网格

3.1 用TAdvButton替换TButton，保留事件签名

原生TButton在Windows 11上依然是平面矩形，没有聚焦高光也没有悬停反馈。TAdvButton是TMS里最常用的替换品，保留Caption、Enabled、OnClick这些基础属性，另外增加Appearance样式块和焦点反馈选项。替换时我倾向于在FormCreate里动态创建，而不是直接在DFM里改几十个按钮，这样属性名可以跟着IDE提示走，不容易拼错。

procedure TfrmMain.FormCreate(Sender: TObject); var btn: TAdvButton; begin btn := TAdvButton.Create(Self); btn.Parent := pnlToolbar; btn.Left := 16; btn.Top := 10; btn.Width := 110; btn.Height := 34; btn.Caption := '刷新数据'; btn.OnClick := DoRefreshClick; end;

这段代码在窗体创建时动态生成一个TAdvButton。Parent必须指定，否则控件不会显示；Left/Top/Width/Height是常规布局参数；OnClick := DoRefreshClick把点击事件指向原有处理方法，事件签名TNotifyEvent和TButton完全一致，这是业务层代码不用改的关键。

3.2 用TAdvPanel做圆角外观和子控件间距

面板组件要解决的核心是圆角外观和子控件间距统一。常规做法是用TAdvPanel代替TGroupBox作为表单分区容器，它能设置独立的填充色和边框方向，配合VertMargin、HorizMargin两个属性统一内部子控件的缩进，不需要给每个控件单独写Left和Top。

AdvPanel1.Caption := '查询条件'; AdvPanel1.Fill.Color := clWindow; AdvPanel1.Fill.ColorTo := $00F0E8DC; AdvPanel1.AdvBorder.Sides := [adLeft, adTop]; AdvPanel1.VertMargin := 12; AdvPanel1.HorizMargin := 12;

Fill.Color是渐变起始色，Fill.ColorTo是结束色，这两项组合可以让面板在深色主题下也有边界感。AdvBorder.Sides控制哪几条边显示边框，VertMargin和HorizMargin统一子控件的上下左右缩进，比逐控件设置坐标干净得多。圆角不会像WPF里那样通过CornerRadius直接暴露，而是由填充和边框组合模拟出来，所以面板边界要留足内边距，否则圆角区域会裁切掉文字。

3.3 用TAdvStringGrid搭报表网格

TAdvStringGrid比原生TStringGrid多出的能力是独立行高、列宽拖动、单元格颜色和列头排序。批量展示查询结果时，我常用它替代TListView，数据填充方式直接走二维字符串矩阵，逻辑简单，滚动性能也稳定。

AdvStringGrid1.RowCount := 100; AdvStringGrid1.ColCount := 5; AdvStringGrid1.FixedRows := 1; AdvStringGrid1.ColWidths[0] := 180; AdvStringGrid1.RowHeights[1] := 28; AdvStringGrid1.Cells[0, 1] := '192.168.1.10'; AdvStringGrid1.SortSettings.Show := True;

FixedRows := 1锁定表头；ColWidths[0]设置第一列宽度；RowHeights[1]控制数据行高，显示中文时26到30像素观感最佳；SortSettings.Show := True让列头出现可点击的排序三角，配合鼠标事件就能实现按列排序。Cells[0, 1]里第一个参数是列号、第二个参数是行号，批量填充数据时用双层循环赋值是最直接的写法。

3.4 日期选择器的Format显式指定

日期控件看起来简单，但坑往往在格式上。TMS的TAdvDateTimePicker默认跟随系统短日期格式，业务端如果按yyyy-mm-dd传字符串入库，在部分区域设置下会被格式化成dd/MM/yyyy，JSON接口解析时就容易得到“13/05/2025”而不是“2025-05-13”。我通常在FormCreate里强制覆盖格式。

AdvDateTimePicker1.DateTime := Now; AdvDateTimePicker1.Format := 'yyyy-mm-dd';

第一行把当前时间写入控件，第二行把显示和输出格式固定为四位年份、两位月份和日期。显式设置Format的意义在于绕开操作系统区域设置，尤其在对接SQLite入库和AI接口入参时，这类字符串格式不一致的问题经常被误判成乱码，其实只是区域格式截断。

4. 主题与皮肤机制：从单控件外观到全局换肤

4.1 皮肤系统的三个层次

TMS高级控件的视觉样式并不是绑定在一个独立主题文件里的，而是每个控件自带Appearance属性块。底层是VCL的Color和Font，中间是Appearance组合出来的渐变、边框和禁用色，最上层才是由主题配置统一写入的全局样式。理解这个层次排序的意义在于：换肤不需要逐个控件改属性，只需要拿到控件树，按类型重新赋样式块即可。

4.2 递归遍历控件树统一应用主题

我维护老项目时写过一个通用换肤函数，思路是递归枚举TWinControl的子控件，再按控件类型重设样式。这样可以一次性覆盖窗体内所有TAdvButton、TAdvPanel和TAdvStringGrid，不需要为每个窗体单独写一套颜色赋值逻辑。

procedure ApplyThemeToWinControl(AControl: TWinControl); var i: Integer; ctl: TControl; begin for i := 0 to AControl.ControlCount - 1 do begin ctl := AControl.Controls[i]; if ctl is TAdvButton then begin TAdvButton(ctl).Appearance.Color := FTheme.BaseColor; TAdvButton(ctl).Appearance.ColorTo := FTheme.BaseColorTo; TAdvButton(ctl).Appearance.BorderColor := FTheme.BorderColor; end else if ctl is TAdvPanel then begin TAdvPanel(ctl).Fill.Color := FTheme.PanelColor; end else if ctl is TAdvStringGrid then begin TAdvStringGrid(ctl).Color := FTheme.GridColor; TAdvStringGrid(ctl).Font.Color := FTheme.GridFontColor; end; if ctl is TWinControl then ApplyThemeToWinControl(TWinControl(ctl)); end; end;

ControlCount统计当前容器内的直接子控件数量；ctl is用于判断控件类型，避免对非TMS控件执行不存在的属性；递归调用是为了处理TAdvPanel里再嵌TAdvPanel、或者TabSheet内嵌网格的多层结构。递归判断放在ctl is TWinControl分支里，因为只有TWinControl子类才持有Controls数组，对TButton这类非容器控件强转会导致访问无效内存。

4.3 把主题颜色持久化到配置文件

主题如果只在运行期有效，每次开发调试都要重新设置一遍颜色。常见的做法是把主题里的关键色值写到ini文件，启动时读取，配合ReadInteger的默认值参数保证配置缺失时也能恢复默认主题。

FTheme.BaseColor := Ini.ReadInteger('THEME', 'BaseColor', $2B2B2B); FTheme.BaseColorTo := Ini.ReadInteger('THEME', 'BaseColorTo', $3C3F41); FTheme.BorderColor := Ini.ReadInteger('THEME', 'BorderColor', $505354); FTheme.GridColor := Ini.ReadInteger('THEME', 'GridColor', clWhite);

ReadInteger的第三个参数是默认值，配置文件损坏时直接拉取默认主题，避免启动黑屏。颜色以整数形式存储，和TColor天然兼容。真正做主题系统时，我会把FTheme定义成一个record，提供LoadFromIni和SaveToIni两个方法，这样UI层只调用ApplyThemeToWinControl，持久化逻辑和界面逻辑彻底拆开。

5. 高DPI缩放、工程迁移兼容性与一个换肤技巧

5.1 高DPI下TMS控件错位的排查顺序

把工程迁到RAD Studio 12.3后，第一个坑是高分屏显示偏小。TMS控件内部大量使用像素坐标缓存，在DPI变化时如果窗体没有开启Per-Monitor V2，会出现列表列宽和显示区域不一致。排查顺序是先看工程选项里的High-DPI support是否选到Per-Monitor V2，再看窗体属性Scaled是否保持True。单独改DPI设置而不重排一次容器，控件缓存不会自动刷新。

5.2 从10.4老工程迁移的编译错误

老工程迁移到12.3时，常见报错是“TMSWString not found”和“Incompatible types”。前者通常是旧版本控件包源码没更新干净，后者多半是TMS在v13里把某些方法的Integer参数改成了NativeInt。最有效的方式不是全局搜索替换，而是打开TMS安装目录下的CHANGES文本，找到Breaking changes小节对照处理。旧DFM里保存了旧版控件的二进制属性时，首次打开会报“Stream read error”，正确的操作是在DFM文本模式下删除该控件的样式属性块，再重新拖入新版控件设置。

5.3 监听系统深色模式切换自动应用主题

这个技巧把WndProc和主题应用串起来。Windows在深浅色模式切换时会向顶层窗口广播WM_THEMECHANGED消息，重写主窗体的WndProc可以在消息到达默认窗口过程前拦截处理，避免窗体背景先闪一下白色再变黑。

procedure TfrmMain.WndProc(var Message: TMessage); begin if Message.Msg = $031A then // WM_THEMECHANGED begin if IsSystemDarkMode then FTheme.LoadFromIni(ExtractFilePath(Application.ExeName) + 'dark.ini') else FTheme.LoadFromIni(ExtractFilePath(Application.ExeName) + 'light.ini'); ApplyThemeToWinControl(Self); end; inherited; end;

$031A是WM_THEMECHANGED的消息编号，直接写十六进制避免了不同Delphi版本Messages单元里常量未声明的问题。ExtractFilePath保证配置路径始终跟随可执行文件目录，ApplyThemeToWinControl传入Self是因为TForm本身就是TWinControl，会遍历全部子控件。IsSystemDarkMode需要自己实现：从注册表HKCU\Software\Microsoft\Windows\CurrentVersion\Themes\Personalize读取AppsUseLightTheme值，0表示深色，1表示浅色，把注册表DWORD转成Boolean后这个换肤链就能正常工作。

本文还有配套的精品资源，点击获取