在TToolBar中如何动态添加TToolButton，并垂直排列？

csdn_tw 2005-12-10 11:48:55

如题

...全文

301 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

csdn_tw 2005-12-17

打赏
举报

哦,谢谢,可是ttoolbutton里有一个方法settoolbar不需要用吗?只要设置toolbutton的parent属性即可?那settoolbar是做什么用的?

csdn_tw 2005-12-11

打赏
举报

在一个ttoolbar中可以实现多个按钮垂直排列，但那是用鼠标改变toolbar的宽度来实现，但如何在程序中实现呢？

老之 2005-12-11

打赏
举报

要垂直排列的话，可能要添加多个TToolBar了。

老之 2005-12-11

打赏
举报

ToolBar也动态生成好了
procedure TForm1.Button1Click(Sender: TObject);
var MyToolButton:TToolButton;
MyToolBar:TToolBar;
i:integer;
begin
MyToolBar:=TToolBar.Create(self);
MyToolBar.Parent:=Form1;
MyToolBar.Height:=300;
MyToolBar.Show;
for i:=1 to 10 do
begin
MyToolButton:=TToolButton.Create(self);
MyToolButton.Parent:=MyToolBar;
MyToolButton.Wrap:=True;
MyToolButton.Top:=i*10;
MyToolButton.Show;
end;
end;

老之 2005-12-11

打赏
举报

先放一个ToolBar
procedure TForm1.Button1Click(Sender: TObject);
var MyToolButton:TToolButton;
i:integer;
begin
for i:=1 to 10 do
begin
MyToolButton:=TToolButton.Create(self);
MyToolButton.Parent:=ToolBar1;
MyToolButton.Wrap:=True;
MyToolButton.Top:=i*10;
MyToolButton.Show;
end;
end;