Hola de nuevo.
Me quede pensando, ya que no estaba muy claro si hablabas de un
TImage o de un
TBitBtn.
Si la imágen que deseas que cambie es la que este en el
TBitBtn, te convendría poner las dos imágenes en un
TImageList y hacer:
Código Delphi
[-]
type
TBitBtn=class(Buttons.TBitBtn)
procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
end;
TForm1 = class(TForm)
BitBtn1: TBitBtn;
ImageList1: TImageList;
private
public
end;
var
Form1: TForm1;
implementation
procedure TBitBtn.CMMouseEnter(var Msg: TMessage);
begin
with Form1 do
begin
BitBtn1.Glyph:= nil;
ImageList1.GetBitmap(0, BitBtn1.Glyph)
end;
end;
procedure TBitBtn.CMMouseLeave(var Msg: TMessage);
begin
with Form1 do
begin
BitBtn1.Glyph:= nil;
ImageList1.GetBitmap(1, BitBtn1.Glyph)
end;
end;
...
Como verás el modo de detectar la entrada/salida del componente no difiere del anterior.
Saludos.