UC知道delphi中可以实现图片按钮变化吗？
来源：百度知道 编辑：UC知道 时间：2024/06/15 03:24:05
小鸟求教各位大侠，在delphi中的onmouse时间可以实现鼠标移动到图片上和移开时的图片变化吗？如果可以，请告诉我该怎么编码，感激不尽
我是这么做的，首先我放了2个隐藏的image:img3 和img2 ，img3中为鼠标移开图片时该显示的图片，img2中的图片为鼠标移动在图片上时图片。
然后在窗体TForm的OnMouseMove事件和Image的OnMouseMove事件中分别写了如下代码：
procedure TForm1.img1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img1.Picture.Assign(img3.Picture);
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img1.Picture.Assign(img2.Picture);
end;
就可以实现了。不明白给我发消息。