BitBtn Button effekt

[Garfield]

Vielleicht so:

Delphi-Quellcode:

procedure TForm1.CMMouseLeave(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) <> BitBtn2.Handle
  then begin
    BitBtn2.Glyph := nil;
    ImageList1.GetBitmap(1, BitBtn2.Glyph);
  end;
end;

Zumindest ändern sich die Bildchen des BitBtn2.