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

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

components delphi-2009 user-interface delphi

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

有没有人体验过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 回复 | 直到 17 年前

Toon Krijthe 17 年前

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

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

使用:

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

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

使用:

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

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

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

jpfollenius Rob Kennedy 17 年前

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

我把它改成了

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

它起作用了。

不知道问题的确切原因。

推荐文章

code4cash · 声明了“string”,但从未读取其值

4 年前

Srinath Macherla · 如何删除ant design甜甜圈图表中的图例

4 年前

Federico Gentile · 如何在数组中无限循环并以角度显示值?

4 年前

Ren Jitsm · React useeffect显示组件安装2次

4 年前

Aden Lee · 如何在React中使用filter()控制JSX组件?

4 年前

Maria · 如何将DatePicker(@mui)值提升到父组件?

4 年前

Audiosleef · 根据搜索结果显示列表

8 年前

SamohtVII · 使用组件区域显示各种内容

8 年前

yhc44 · Vue。js组件父事件

8 年前

Chris · 在Vue中动态添加不同组件

8 年前