onmouseout

[silent vapor]

Ich möchte einen Hovereffekt von einem Grafikbutton erzeugen, mittels TImage.
Das bild bei hover wird geladen, mittels onmouseover, nur es gibt kein Event onmouseout.
Gibt es ein vergleichbares Event oder ne andere Lösung, außer das ich allen angrenzenden Komponenten ein onmouseover gebe

thx

[Keldorn]

Hallo

such mal im forum nach cm_mouseleave, da gibts massenweise codebsp.

Mfg Frank

[int]

so gehts:

type
TYourButton= class(TImage)
protected
procedure WMMouseLeave(var Msg : TWMMouse); message CM_MOUSELEAVE;
end;

und in implementation:

procedure TYourButton.WMMouseLeave(var Msg : TWMMouse);
begin
//dein quelltext
end;