delphi有图形按钮控件吗

是指当鼠标经过按钮的时候显示一张图片,鼠标离开显示另一张图片,鼠标按下是另一张图片,按钮禁止时是另一张图片.如果要用mousemove,mousedown,这些事件来换图... 是指当鼠标经过按钮的时候显示一张图片,鼠标离开显示另一张图片,鼠标按下是另一张图片,按钮禁止时是另一张图片.
如果要用mousemove,mousedown,这些事件来换图片的话要在程序目录下放这些图片,感觉不是太好
展开
 我来答
ototing
2008-11-01 · TA获得超过821个赞
知道小有建树答主
回答量:352
采纳率:0%
帮助的人:469万
展开全部
如果仅仅是因为不想在程序目录下放图片,可以用以下方法:
用delphi的image editor编辑工程文件中的资源文件(Res文件),在里面添加几个BITMAP,分别命名为B1,B2,B3...
然后用Image1代替按钮控件,需要变化图面的时候以下命令装入
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image1.Picture.Bitmap.Handle:=LoadBitmap (hInstance,'B2');
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Picture.Bitmap.Handle:=LoadBitmap (hInstance,'B3');
end;
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式