BitBtn Button effekt

[Matze]

Oder nimm eine TImageList. Damit geht's auch einwandfrei:

Delphi-Quellcode:

procedure TForm1.BitBtn1MouseEnter(Sender: TObject);
begin
  BitBtn1.Glyph := nil;
  ImageList1.GetBitmap(0, BitBtn1.Glyph);
end;

procedure TForm1.BitBtn1MouseLeave(Sender: TObject);
begin
  BitBtn1.Glyph := nil;
  ImageList1.GetBitmap(1, BitBtn1.Glyph);
end;