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

Question

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

如何修改其外观？

Answer 1

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