在Toolbar上面点击右键后选择New Button就可以用ToolButton了,很方便的,也可以解决你的问题的。

解决方案 »

  1.   

    在Toolbar上面点击右键后选择New Button就可以用ToolButton了,很方便的,也可以解决你的问题的。
      

  2.   

    up
    为什么会在Toolbar上放speedButton呢?
    Toolbar自带的按钮不是更好?
      

  3.   

    to: willingsilly你所说的我试过了,可以呀,当Speedbutton的Enabled 为False 时,其上面的图像可变为灰色呀。你能否把你所写的代码也贴出来?
      

  4.   

    在ToolBar1上放SpeedButton1,
    Toolbar1.Enabled:=false;
    SpeedButton1.Enabled:=False;//若无此句,其上面的图像不变为灰色
    ////
    Toolbar1.Enabled:=True;
    SpeedButton1.Enabled:=true;
    //可实现,但是有时侯SpeedButton1按钮按不下.SpeedButton1.Onclick:=N1.Click;(N1为菜单名,Enabled:=true)看来我还是要用ToolButton了
      

  5.   

    to:willingsillySpeedButton1和Toolbutton的Enabled初始属性都为True;
    我是通过在N1的Onclick事件中测试的,通过点击另一个SpeedButton2(其过程调用N1的相应过程)来改变SpeedButton1的状态。procedure TForm1.N1Click(Sender: TObject);
    begin
      showmessage('It''s ok!');
      if SpeedButton1.Enabled = True then
        SpeedButton1.Enabled := False
      else
        SpeedButton1.Enabled := True;  
    end;
    procedure TForm1.SpeedButton2Click(Sender: TObject);
    begin
      SpeedButton2.Onclick := N1.Onclick;
    end;
      

  6.   

    谢谢大家了,我现在加了TAction,省去了麻烦。(我的delphi6.0曾经汉化过,可能有点问题。)顺便问各位在使用菜单和TAction时(当然还有工具条的按钮),在哪里输入代码逻辑上比较合理?