CategoryPanelGroup没有标题

Question

任何人都可以告诉我如何防止TCategoryPanelGroup绘制标题。我试图将header.height设置为0，但这会产生全新的问题。我的面板上有TImages，当我滚动面板组时，图形工件会在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;