onmousemove等于换image图片
image图片等于带影子
image图片等于带影子
解决方案 »
- BPL包内各窗口之间如何转递数据
- 我在单步调试时把鼠标移到变量时,为什么老出现这样?
- Delphi 7 中有没有TQuickRep空件
- 關於大系統的分割
- RemoteDataModule内部对象实例间如何通讯?(COM问题)
- 脱出五指山,开心,放分庆祝!
- 关于DELPHI的打印问题?请各位帮帮忙呀!
- 如何将RICHEDIT1的内容加密?
- 高分呀,怎样用InstallShield6安装Delphi的BDE应用程序和ODBC数据源
- 如何得到计算机的ip地址???
- *****俺女朋友的妹妹今年高考,小弟我想替她找到今年六月份的北京文科一模、二模试题,请教各位前辈指点一、二!*****
- 怎么使用线程实现对query的数据库查询
你可能需要三张图片:
1、当鼠标不在TImage控件上时显示的,这一张可能应该用灰色且没有阴影的;
2、当鼠标在TImage控件上,但没有点击时显示的,这一张可能应该用彩色且有阴影的;
3、当鼠标在TImage控件上,且点击时显示的,这一张可能应该用彩色且没有阴影的;你新建一个工程,在Form1上放置一个TImage控件,将“1.bmp”调入控件Image1中。然后参照下面的代码:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image1.Picture.LoadFromFile('C:\1.bmp');
end;procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image1.Picture.LoadFromFile('C:\2.bmp');
end;procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Picture.LoadFromFile('C:\3.bmp');
end;procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Picture.LoadFromFile('C:\2.bmp');
end;以上代码仅仅是演示了大致的流程,并没有优化。