我使用标准的 delphi 停靠功能将表单停靠到 TPanel。停靠表格的标题看起来像这样
如何修改它的外观?
默认外观来自TCaptionedDockTree
. 您可以编写自己的后代并将其分配DefaultDockTreeClass
给替换它。要更改标题高度,请覆盖AdjustCaptionRect
. 要更改标题的实际绘制,请使用覆盖和/或方法覆盖GetDockCaptionDrawer
以返回您自己的后代。TDockCaptionDrawer
DrawDockCaption
DockCaptionHitTest