TRzToolbar 的使用与自带的 TToolbar的使用比较

闪闪棉花糖

于 2020-10-26 15:51:54 发布

阅读量776

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/hsqchdn/article/details/109291477

版权

delphi 专栏收录该内容

39 篇文章 5 订阅

订阅专栏

TRzToolbar 的使用与自带的 TToolbar的使用比较
特点介绍：TRzToolbar 在delphi 自带的设置中右键添加toolbutton
不回ImageList图标控件显示
设置TRzToolbar 中的ButtonHeight 为50,ButtonWidth为70,GradientColorStyle 选择gxcCustomer或者其他的
设置TRzToolbar 的RowHeight为60，ShowButtonCations 为True，VisuaStyle为vsGradient
设置TRzToolbar 中的ToolButton 设置Caption 为按扭1 GradientColorStyle为gcsCustom
GroupIndex等于 1,其他toolbuton的也要设置 为1
layout 设置为blGlyphTop 上下显示
SelectionColorStop 设置停留在button的颜色
SelectionFrameColor 设置停留在button的边框颜色
设置完后，即可点击选中后单个突出显示
-----------------------------------
而delphi win32下的TToolbar则不用设置这么多属性 添加按扭步骤与上面的相同
ShowCaptions 为True
HotTactkColor颜色可用默认也可自行设置，这个是鼠标停留在button上的颜色设置，
点击后每个的颜色突出显示暂时没有找到（如果有大佬找到，请在评论区写一下谢谢）

对于大家要选哪个看自己的需要吧使用

本人是在button 的onClick事件中处理这个颜色突出显示的代码如下
procedure TForm1.ToolButton1Click(Sende: TObject);
var
  i:Integer;
begin
  for i := 0 to ToolBar1.ControlCount -1 do
  begin
    if ToolBar1.Controls[i].Name =TToolButton(Sender).Name then
	   TToolButton(Sender).Down :=True
	else TToolButton(ToolBar1.Controls[i]).Down :=False;   
  end;
end;