VCL BitMap Style Proceject Options->Application->Appearance选择几个样式使用代码设置 uses Vcl.Themes;procedure TForm1.Button1Click(Sender: TObject);begin TStyleManager.TrySetStyle(‘Amakrits‘);end; XE4默认皮肤列表WindowsAmakritsAmethyst KamriAqua GraphiteAqua Light SlateAuricCarbonCharcoal Dark SlateCobalt XEMediaCyan DuskCyan NightEmerald Light SlateGolden GraphiteIceberg ClassicoLavender C...
其实也不复杂，主要使用到shellAPI下的TNotifyIconData这个结构体：typedef struct _NOTIFYICONDATA { DWORD cbSize; //结构体的大小，以字节为单位 HWND hWnd; //窗口的句柄 UINT uID; //应用程序定义的任务栏图标的标识符 UINT uFlags; //此成员表明具体哪些其他成员为合法数据 UINT uCallbackMessage; //应用程序定义的消息标示 HICON hIcon; //增加、修改或删...
看看 Delphi XE2 为 VCL 提供的 14 种样式 其实只提供了 13 个 vsf 样式文件, 还有默认的 Windows 样式, 共 14 种.在空白窗体上添加 ListBox1 等控件, 测试代码:uses IOUtils, Vcl.Styles, vcl.Themes;procedure TForm1.FormCreate(Sender: TObject); var dir, fileName, styleName: string; begin //VCL 的样式文件 *.vsf 在 X:\Program Files\Embarcadero\RAD Studio\9.0\Redist\styles\vcl dir := GetEnvironmentVariabl...