TImage --> OnMouseLeave

[Störtebeker]

Hallo,

ich hatte mir zufällig irgendwo die WINDOWS Vista Caption Button runtergeladen - einmal "Active" & "Inactive" - und dachte mir, die zusammen mit bsNone in mein Projekt mit einzubinden.

ABER:

TImage bietet mir leider ledeglich ein OnMouseMove und kein OnMouseLeave Ereignis an. Folgendes hatte ich eigentlich vor:

Ich setzt auf die Form das "Inactive" Bild und gebe dem OnMouseMove Ereignis den Befehl das Bild in das "Active"-Bild zu wechseln. Aber es muss natürlich auch rückwürkend funktinieren, da ja der Button bei WINDOWS auch nicht immer aktiv is, wenn man einmal mit der Maus drüberfährt. Kennt Ihr ne kostenlose Image-Komponente, die PNG unterstützt und ein "vorgefertigtes" OnMouseLeave Ereignis hat?

Wenn nicht, vielleicht könnt Ihr mir helfen, dem normalen TImage das Ereignis schmackhaft zu machen.

Ach ja ... hätte ich fast vergessen:

Was muss ich denn für einen Imagewechsel dem Ereignis zuweisen:

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
TImage1.load=("....PNG");
end;

end.

Der Quellcode ist bestimmt falsch in seiner Art, oder?

Thx.

mfG
Störtebeker

P.S.: Hoffe, der Text ist nicht allzukompliziert.