5,939
社区成员
发帖
与我相关
我的任务
分享ToolBar控件用法？
我现在用ToolBar用TOOLBAR产生了几排ToolButton1排列顺序为：
A B C
D E F
G H
现在把B.VISIBLE:=FALSE时,而C又到了B的位置,C后面就一个空位置,我现在想B隐藏了,C的位置不变或者C变到了B的位置D到C的位置于此类推,请问大家知道吗?谢谢!
A B C
D E F
G H
现在把B.VISIBLE:=FALSE时,而C又到了B的位置,C后面就一个空位置,我现在想B隐藏了,C的位置不变或者C变到了B的位置D到C的位置于此类推,请问大家知道吗?谢谢!
...全文
请发表友善的回复…
发表回复
hj_cn 2001-10-16
- 打赏
- 举报
由于我要在上面动态加载图片，用了一个IMAGELIST控件比较方便但如果指定路径比较繁所以不好
有PANEL+BITBTN控件
有PANEL+BITBTN控件
snjun 2001-10-16
- 打赏
- 举报
不要用ttoolbar
改用tpanel+tbitbutton或tpanel+toolbutton
改用tpanel+tbitbutton或tpanel+toolbutton
snjun 2001-10-16
- 打赏
- 举报
toolbutton的aligin设为left
hj_cn 2001-10-16
- 打赏
- 举报
没人知道吗
hj_cn 2001-10-16
- 打赏
- 举报
gz
dq 2001-10-16
- 打赏
- 举报
我估计和你的各个ToolButton的Caption有关。
当ToolBar.ShowCaptions为True时，每一个ToolButton的实际宽度由它们当中Caption最长的一个决定，所以如果你隐藏了那个Caption最长的Button以后，行数肯定要减少。
因此建议你在Caption上想想办法，比如在某个短Caption两端都加空格，以保证所有的Caption长度相同。
当ToolBar.ShowCaptions为True时，每一个ToolButton的实际宽度由它们当中Caption最长的一个决定，所以如果你隐藏了那个Caption最长的Button以后，行数肯定要减少。
因此建议你在Caption上想想办法，比如在某个短Caption两端都加空格，以保证所有的Caption长度相同。
hj_cn 2001-10-16
- 打赏
- 举报
首先谢谢你，但还是有一个问题应是我本来是三行，它却成了四行或者两行，我要的是行数不变
dq 2001-10-16
- 打赏
- 举报
在设计期我们就可以发现，如果改变ToolBar的宽度，ToolButton的位置会有相应的变化。
利用这一点，可以模拟在程序中动态地调整ToolBar本身的宽度，强迫它重新安排ToolButton。
测试程序——
procedure TForm1.Button1Click(Sender: TObject);
begin
with ToolButton2 do Visible := not Visible;
with ToolBar1 do begin
Width := Width + ButtonWidth;//如果不行把ButtonWidth换成个较大的数试试
Width := Width - ButtonWidth;//恢复ToolBar原来的宽度
end;
end;
利用这一点，可以模拟在程序中动态地调整ToolBar本身的宽度，强迫它重新安排ToolButton。
测试程序——
procedure TForm1.Button1Click(Sender: TObject);
begin
with ToolButton2 do Visible := not Visible;
with ToolBar1 do begin
Width := Width + ButtonWidth;//如果不行把ButtonWidth换成个较大的数试试
Width := Width - ButtonWidth;//恢复ToolBar原来的宽度
end;
end;
