怎样向ToolButton发送消息

Question

直接调用事件过程不好吗？
  Toolbutton1Click(ToolButton1);

Answer 1

To： CSharp
perform 对Toolbutton似乎不起作用。To： Apollo
我需要按扭被按下请在刺招

Answer 2

按钮的类型需为tbsCheck,然后Toolbutton1Click(ToolButton1);

Answer 3

按钮的类型就是tbsCheck，我的意思是你只调用它的事件处理句丙并不能象在点饥它时使它被按下。

Answer 4

Perform(WM_LButtonDown);
Perform(wm_click);
perform(wm_lbuttonup);

Answer 5

搞不懂
加上
toolbutton1.down:=not toolbutton1.down 不就成了么
还绕这么大的弯子

Answer 6

 for i:=0 to ToolBar1.ButtonCount-1 do
      if  ToolBar1.Buttons[i].Style=tbsButton then
      begin    //控制ToolBar_Group的小按钮的down
         if ToolBar_Group.Buttons[i]=GroupButton then //GroupButton是要按下的按钮
             ToolBar_Group.Buttons[i].Down:=True
          else
             ToolBar_Group.Buttons[i].Down:=false;   
      end;

Answer 7

错了， 
for i:=0 to ToolBar1.ButtonCount-1 do
      if  ToolBar1.Buttons[i].Style=tbsButton then
      begin    //控制ToolBar1的小按钮的down
          if ToolBar1.Buttons[i]=ToolButton then//ToolButton是要按下的按钮
             ToolBar1.Buttons[i].Down:=True
          else
             ToolBar1.Buttons[i].Down:=false;   
      end;

Answer 8

还忘了说一句，按钮类型不要使用tbscheck,

Answer 9

又：但问题是toolbutton没有句丙属性，怎么发呢？

Answer 10

再给你做一个更通用的函数吧
procedure setbutton(tbtn:TToolButton);
var
  i:integer;
begin
  with TToolbar(TBtn.Parent) do
  begin
    for i:=0 to ButtonCount-1 do
      if  Buttons[i].Style=tbsButton then
      begin    //控制ToolBar1的小按钮的down
          if Buttons[i]=TBtn then//ToolButton是要按下的按钮
            Buttons[i].Down:=True
          else
            Buttons[i].Down:=false;
      end;
  end;
end;然后在该Toolbar的每一个ToolButton的click事件里添加一句：
setbutton(TToolButton(Sender));就可以达到你的目的，
我做程序的宗旨是只要实现（最好不要太繁），这好象不是很繁的，
我一直这么用,我的同事也这么用，不过有可能换了一个方式
估计没有什么一步就能实现的好方法

Answer 11

天呐，不会吧～～～～只要把需要做到这个效果的那一批按钮的GropuIndex属性设成相同的，就行啦。

Answer 12

Toolbutton根本就没有GropuIndex属性

Answer 13

没错，Toolbutton根本就没有GropuIndex属性 
那是TSpeedButton个人觉得，就算一个一个的处理按钮的down也不会降低什么效率呀。
怎么就这么犟呢？

Answer 14

对不起，搞错了，toolbutton没有groupindex属性，但是有grouped属性呀，你把那几个toolbutton的grouped的属性都设为true，把它们的style都设为tbscheck就可以了

Answer 15

oldhawk(老鹰)　：
  该问题你通过消息是如何处理的，我也遇到了相同的问题