Wie bei Apple Taskleiste --> in Delphi programmieren

[Der_Unwissende]

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".