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