如何動態添加按鈕到TCategoryPanelGroup？

有沒有人使用過Delphi 2009的TCategoryPanelGroup組件，特別是動態添加按鈕到類別面板？如何動態添加按鈕到TCategoryPanelGroup？

我無法讓它正常工作。無論是按鈕不出現或對齊被搞砸。我想要做的基本輪廓：

procedure AddButton (const Caption, Group : String); 
const 
    ButtonSize = 55; 
    Border = 10; 
var 
    CategoryPanel : TCategoryPanel; 
    Button : TButton;  
begin 
    CategoryPanel := FindCategoryPanel (CategoryPanelGroup, Group); 
    CategoryPanel.Height := CategoryPanel.Height + ButtonSize + Border; 
    Button := TButton.Create (CategoryPanel); 
    Button.Parent := CategoryPanel; 
    Button.Width := ButtonSize; 
    Button.Height := ButtonSize; 
    Button.Left := 27; 
    Button.Top := CategoryPanel.ClientHeight - Border - ButtonSize; 
end;

任何提示？

來源

2009-08-27 jpfollenius

問題是我指定頂部座標的方式。

我改成了類似

ButtonCount := CategoryPanel.ComponentCount - 2; 
Button.Top := Border + ButtonCount * (ButtonSize + Border); 
CategoryPanel.ClientHeight := Border + (ButtonCount+1) * (ButtonSize + Border);

和它的作品。

不知道究竟是什麼導致了問題。

來源

2009-08-31 14:30:40 jpfollenius

究竟是什麼問題？按鈕顯示在所需的位置。

你確定你想要沒有文字的方形按鈕嗎？

使用：

Button.Left := 0; 
Button.Width := CategoryPanel.ClientWidth - 2;

使它們減去準確的寬度作爲面板的一個像素的偏移量。

使用：

Button.Width：= CategoryPanel.ClientWidth; Button.Left：= -1;

創建最大寬度。它有一個像素偏移量。

[[我正在使用2010年公平]]。

來源

2009-08-27 13:21:15

而且在高度上還有一個像素偏移量。 – 2009-08-27 13:30:10

在實際應用中，按鈕是TButton的子類，它們包含圖像。 – jpfollenius 2009-08-27 13:34:07

確切的問題：按鈕沒有出現在正確的位置。它們要麼完全不出現，要麼只有很小的偏移，而是彼此重疊。 – jpfollenius 2009-08-27 13:36:47

如何動態添加按鈕到TCategoryPanelGroup？

回答

相關問題