BitBtn-Icon bei OnMouseLeave wieder das altes Bild zurück

[Delphiturbo]

Hallo,

Delphi-Quellcode:

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

procedure TForm1.BitBtn1CMMouseLeave(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) <> BitBtn1.Handle then
  begin
    BitBtn1.Glyph := nil;
    ImageList1.GetBitmap(1, BitBtn1.Glyph); // ok aber möchte ich das Icon vor OnMouseEnter wieder zurücksetzen !?
  end;

end;

Ist das möglich ?

[rotfc]

Zitat von Delphiturbo:

Ist das möglich ?

Müsste man vielleicht mal ausprobieren, oder?

Hast Du es schon ausprobiert? Warum sollten wir es vor Dir ausprobieren, bevor Du es versucht hast?

Google mal nach "rollover" oder wie diese Javascripts heißen, die Du in einem Delphiprogramm wohl haben willst.

[Matze]

Hallo,

das gehört erstens in deinen anderen Thread: BitBtn Button effekt und zweitens steht dort eigentlich alles. Dass das Ursprungsbild auch in die ImageList muss, sollte klar sein.

Ich schließe hier mal. Weitere Fragen, nachdem du es selbst versucht hast (!), bitte im verlinkten Thema von dir.

G E S C H L O S S E N