delphi - CategoryPanelGroup 无标题

Question

谁能告诉我如何防止 TCategoryPanelGroup 绘制标题。我尝试将 header.height 设置为 0，但这会产生全新的问题。我的面板上有 TImage，当我滚动面板组时，图形工件会绘制在 TImage 上。

不幸的是，我似乎无法发布图像来向您展示，因此以下是如何重现我所看到的内容。

• 新形式。将 TCategoryPanelGroup 放在其上，对齐客户端。
• 添加一个新面板并在面板上放置一个 TImage，左对齐(您甚至不需要加载图像)
• 将此面板多次复制并粘贴到 PanelGroup 中
• 将 TCategoryPanelGroup.HeaderHeight 设置为 0。
• 运行应用。

调整其大小，以便有垂直滚动条。 滚动面板，如果您像我一样，您会在 TImage 所在的位置看到一些图形伪像。

这是我想要实现的粗略目标。

Answer 1

为了避免假象，您可以覆盖 TCategoryPanel 的 DrawHeader

type
  TCategoryPanel=Class(ExtCtrls.TCategoryPanel)
    procedure DrawHeader;override;
  End;

  TForm3 = class(TForm)
//.........
procedure TCategoryPanel.DrawHeader;
begin
//  inherited;

end;