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

Yur*_*ora 3 delphi delphi-xe2

我使用标准的delphi对接功能将表格停靠到TPanel.对接形式的标题看起来像这样 在此输入图像描述

我该如何修改它的外观?

Ond*_*lle 8

默认外观来自TCaptionedDockTree.您可以编写自己的后代并将其指定DefaultDockTreeClass为替换它.要更改标题高度,请覆盖AdjustCaptionRect.要更改标题的实际绘图,请覆盖GetDockCaptionDrawerTDockCaptionDrawer使用overriden DrawDockCaption和/或DockCaptionHitTest方法返回您自己的后代.