Element auf der sich Mauscursor befindet ausführen

[guevaradelaserna]

Hallo!

Ich hatte ja gestern diesen Code

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject); 
var c: TControl; 
begin 
  c := self.ControlAtPos(self.ScreenToClient(Mouse.CursorPos),true); 
  if Assigned(c) and (c is TImage) then 
    begin 
      Timer1.Enabled := false; 
      ShowMessage('Image erwischt'); 
      Timer1.Enabled := true; 
    end; 
end;

als Lösung für mein Problem für Images bekommen.

Hierzu muss ich noch sagen, dass dies nur direkt auf Forms funktioniert sobald das Image auf einem Panel liegt oder so funktioniert es leider nicht mehr.

Jetzt nun zu meiner Frage:

wie kann ich das Click-Ereignis von c automatisch auslösen ohne zu überprüfen welches Image bei c gerade betrachtet wird?

Bye Che