代码之家 › 专栏 › 技术社区 › jpfollenius Rob Kennedy

如何将按钮动态添加到TCategoryPanelGroup?

components delphi-2009 user-interface delphi

jpfollenius Rob Kennedy · 技术社区 · 15 年前

有没有人体验过Delphi2009的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;

有什么暗示吗?

2 回复 | 直到 15 年前

Toon Krijthe 15 年前

到底是什么问题?按钮显示在所需位置。

您确定要不带文本的方形按钮吗?

使用:

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

使其与面板减去像素偏移量时的宽度完全相同。

使用:

button.width:=categorypanel.clientwidth; 按钮。左:=-1;

创建最大宽度。它有一个1像素的偏移量。

我在用2010年的时间来公平。

jpfollenius Rob Kennedy 15 年前

问题是我指定顶坐标的方式。

我把它改成了

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

它起作用了。

不知道问题的确切原因。

推荐文章

Bear Bile Farming is Torture · 如何让div在溢出时水平滚动文本,而不是插入新行

2 年前

Eric Dirla · 怎么做。configure()和。pack()在Tkinter一起工作?

2 年前

Devang Sanghani · 柏树检查线通过

2 年前

Brendan · 如何在Flatter中创建圆形化身周围的虚线边框

2 年前

Sheryar Khan · 如何仅使用html、css、bootstrap、javascript/jquery创建html页面?

3 年前

Shadow43375 · 当前可见的视口部分是否有官方术语?

6 年前

pradip kikani · 如何在iOS中制作instagram聊天屏幕(UI)以便左键滑动查看时间

6 年前

HyperQBE · 如何在pyqt MessageBox中使用变量

6 年前

Adelov · 当我在主窗口中调用其他QtWidget时,我的GUI不工作(按钮等)

6 年前

Lord Jesus · 如何添加“HH:mm:ss”格式的秒表?

6 年前