在Toolbar上面点击右键后选择New Button就可以用ToolButton了,很方便的,也可以解决你的问题的。
解决方案 »
- 求.bat高手写一个.bat文件,实现简单的从FTP的某个文件夹里下载文件到自己电脑,并覆盖原来文件!
- imagelist中的图像来源
- 关于treeview
- 如何把ListView-Item中的内容按需要折行显示?
- adodataset有一字段:客户id,加入一lookup字段:客户名(在其它dataset中)。容许用户输入客户id,如何通过此lookup字段判断客户id是否存在
- Windows消息问题!
- 请问各位,如何自己制作vsf样式文件呢?
- 如何重新编译dbconsts.pas?
- 请问群侠:类似超级解霸的光驱监视器等的系统托盘里的实时监控程序是基于什么原理
- 通过字段编辑器我能否为字段加上默认值??我不想通过数据库加默认值!!constraint属性有什么用??在这里能否用上?
- 谁知道列侬的Double Fantasy(双重幻想)哪里有下载,3q
- 关于treeview和listview的问题???
为什么会在Toolbar上放speedButton呢?
Toolbar自带的按钮不是更好?
Toolbar1.Enabled:=false;
SpeedButton1.Enabled:=False;//若无此句,其上面的图像不变为灰色
////
Toolbar1.Enabled:=True;
SpeedButton1.Enabled:=true;
//可实现,但是有时侯SpeedButton1按钮按不下.SpeedButton1.Onclick:=N1.Click;(N1为菜单名,Enabled:=true)看来我还是要用ToolButton了
我是通过在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;