delphi有图形按钮控件吗

来源：百度知道 编辑：UC知道 时间：2024/06/24 00:35:47
是指当鼠标经过按钮的时候显示一张图片，鼠标离开显示另一张图片，鼠标按下是另一张图片，按钮禁止时是另一张图片．
如果要用mousemove,mousedown,这些事件来换图片的话要在程序目录下放这些图片，感觉不是太好

如果仅仅是因为不想在程序目录下放图片，可以用以下方法：
用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;