放在MouseMove事件里面~~MouseDown是鼠标按下触发的事件
procedure TForm1.SpeedButton1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
speedbutton1.glyph:=1down.bmp;
end;
procedure TForm1.SpeedButton1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
speedbutton1.glyph:=1down.bmp;
end;
解决方案 »
- delphi POST验证码同步问题
- dbgrideh1.Columns[4].PickList.clear
- delphi中的进度条的使用,在线等啊
- DELPHI7 调用外部dll问题?
- DBGrid如何使选中的整行变颜色(同时可以编辑),
- 哪位高人怎么知道如下的线程调用的运行错误?
- 请问能否推荐一个好用的打包软件
- 50分:怎样对汉字进行Unicode编码,并把编码后的结果以uxxxx的形式在EDIT筐中显示出来??
- RX Library 2.75为什么装完后又要重装?
- FForm是一个TForm的对象,longint(FForm)是什么意思?
- 用QuickReport做报表,是否每打印一条记录,就调用一次AfterPrint事件。
- 如何知道listview被选择项的索引号?
Shift: TShiftState; X, Y: Integer);
begin
speedbutton1.glyph:=1down.bmp; 这句怎么写不对,请问怎么写?
end;
1down.bmp是什么类型的变量?
改为
speedbutton1.glyph := image1.picture.bitmap;
将Image中的bitmap加载到SPEEDBUTTON中
没有问题。