delphi - 如何更改默认的delphi停靠窗体标题高度？

Question

我使用标准的delphi 对接功能将表单对接到TPanel。停靠表单的标题如下所示

如何修改其外观？

Answer 1

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