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

Question

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

我该如何修改它的外观？

Answer 1

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