Wie bereits gesagt, musst du nur auf die Nachrichten reagieren indem du dir eine Komponente von TImage ableitest.
Delphi-Quellcode:
TExtendedImage = class(TImage)
private
FOnMouseEnter : TNotifyEvent;
FOnMouseLeave : TNotifyEvent;
protected
procedure MouseEnter(msg : TMessage); message CM_MOUSEENTER;
procedure MouseLeave(msg : TMessage); message CM_MOUSELEAVE;
published
OnMouseEnter : TNotifyEvent;
end;
procedure MouseEnter(msg : TMessage);
begin
if self.FOnMouseEnter <> nil then
begin
self.FOnMouseEnter(self);
end;
end;
...
Die beiden Methoden werden immer dann aufgerufen, wenn die Maus den Bereich des Image "betritt" bzw. "verlässt".