如何更改默认的delphi停靠表单标题高度？

【问题标题】：How to change default delphi docked form title height?如何更改默认的delphi停靠表单标题高度？
【发布时间】：2012-05-13 05:23:19
【问题描述】：

我使用标准的 delphi 停靠功能将表单停靠到 TPanel。停靠表格的标题看起来像这样

如何修改它的外观？

【问题讨论】：

标签： delphi delphi-xe2

【解决方案1】：

默认外观来自TCaptionedDockTree。您可以编写自己的后代并将其分配给DefaultDockTreeClass 以替换它。要更改标题高度，请覆盖 AdjustCaptionRect。要更改标题的实际绘制，请覆盖 GetDockCaptionDrawer 以返回您自己的 TDockCaptionDrawer 的后代，并使用覆盖的 DrawDockCaption 和/或 DockCaptionHitTest 方法。

【讨论】：