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

Question

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

delphidelphi-xe2

3

我使用标准的Delphi docking函数将表单停靠到TPanel上。停靠表单的标题看起来像这样 enter image description here

我该如何修改其外观？

- Yuriy Chachora

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Ondrej Kelle · Accepted Answer

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