将IMAGE放在一个PANEL中,然后在IMAGE的MOUSEMOVE和表单的MOUSEMOVE中加上如下代码,
具体的可以自己去看了.
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.BevelInner:=bvLowered;
Panel.Color:=clBlue;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.BevelInner:=bvNone;
Panel1.Color:=clBtnFace;
end;