Crear un Boton funcional a partir de dos Imagenes

[ecfisa]

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.