VCL风格的mac外观风格设计师

时间:2014-08-22 07:01:09

标签: delphi delphi-xe2 vcl-styles

最近我一直在研究VCL Styling(Embarcadero XE2 for Delphi)。 我可以加载和设置样式,以便工作正常。

目前我正在探索VCL样式设计器,我试图弄清楚如何在应用程序文本(标题)时将最小化,最大化,调整大小,关闭和帮助按钮移动到左侧而不是当前默认权限形式)在右边。

我正处于最后阶段,并希望有人可以给我一些指示。

所以基本上我试图“模仿”的是Windows窗体上的Mac外观。

欢迎任何帮助。

1 个答案:

答案 0 :(得分:1)

您想要完成什么与VCL Style Designer无关,而是必须创建自定义表单样式挂钩。

请按照以下步骤操作。

  1. 创建(并注册)从TFormStyleHook类降序的新表单样式挂钩。
  2. 覆盖PaintNC方法以在新位置绘制标题按钮。
  3. 处理WM_NCMOUSEMOVEWM_NCLBUTTONDOWNWM_WM_NCLBUTTONUP消息以检测标题按钮的状态(热,按)并触发操作(关闭,恢复,最大化,最小化)。