如何刪除或更改類別面板控件中的「水平分隔符」？

Question

我一直在玩Delphi 2010中的類別面板控件。我已經能夠修改顏色並讓它們以我喜歡的方式工作。但是，每個面板標題之間都有一個銀色的「橫向分隔符」（我不知道還有什麼要稱之）。

如何更改此「水平分隔符」的外觀或將其全部刪除？

Answer 1

一看T（自定義）CategoryPanel的源揭示了一個方法DrawCollapsedPanel。它無條件地繪製分隔符。從DrawHeader調用DrawCollapsedPanel，檢查唯一條件是面板是否摺疊。

更重要的是，DrawCollapsedPanel是虛擬的，所以你可以創建自己的後代或者使用攔截器類：

TCategoryPanel = class(ExtCtrls.TCategoryPanel) 
protected 
    procedure DrawCollapsedPanel(ACanvas: TCanvas); override; 
    function GetCollapsedHeight: Integer; override; 
end; 

如果你把它放進一個單獨的單元，所有你需要做的就是包括它在ExtCtrls單元之後，你想要一個你自己的行爲的類別面板。

爲了取悅大衛:-)

procedure TCategoryPanel.DrawCollapsedPanel(ACanvas: TCanvas); 
begin 
    // Don't call inherited, we do not want the default separator. 
    // And don't draw anything you don't want. 
end; 

，我們需要重寫GetCollapsedHeight爲好，因爲它確定任何你想要的標題下繪製了摺疊可用於室內：

function TCategoryPanel.GetCollapsedHeight: Integer; 
begin 
    // As we don't want anything under here, 
    // don't call inherited and just return the HeaderHeight. 
    // (Instead of HeaderHeight + 6; 
    Result := HeaderHeight; 
end; 

截圖：