BitBtn Button effekt

[Delphiturbo]

Zitat von Larsi:

Über Glyph sollte es eigentlich aber doch auch gehen?

Edit: Oh, da steht die Lösung ja

Aber nur in 4 Fällen
Up, Disabled,Clicked,Down mehr nicht. Wie Onmouseenter, Onmouseleave, ... nicht oder ?

Allerding
so habe ich verscuht ohne Erfolg :

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    ImageList1: TImageList;
  private
  procedure BitBtn1MouseEnter(Sender: TObject);
  procedure BitBtn1MouseLeave(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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;

end.

auch so nicht geklappt :

Delphi-Quellcode:

procedure TForm1.CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if  WindowFromPoint(ptWork) = BitBtn1.Handle then
    BitBtn1.Glyph := nil;
    ImageList1.GetBitmap(2, BitBtn1.Glyph);

end;