Komponente unter der Maus erhalten

[Mirilin]

FindVCLWindow EDH :

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  p : TPoint;
  wc : TWinControl;
begin
  GetCursorPos(p);

  if (P.x>Left) and (P.x<Left+Width) and
     (P.Y>Top) and (P.Y<Top+Height) then
  begin
    wc:=FindVCLWindow(p);

    if wc<>nil then
      Label1.Caption :=TObject(wc).ClassName
    Else
      Label1.Caption :='unbekannt';
  end;
end;

[Edit]
Noch auf Deutsch :
Mit FindVCLWindow können Sie das fensterorientierte Steuerelement, das sich an einer bestimmten Position befindet, ermitteln. Beispielsweise läßt sich mit FindVCLWindow das fensterorientierte Steuerelement ermitteln, auf dem sich der Mauszeiger befindet, wenn ein anderes Steuerelement aktuell alle Mausbotschaften abfängt. Der Parameter Pos bezeichnet die Position, innerhalb derer sich das zurückgegebene Steuerelement befinden muß. Wenn sich an dieser Stelle kein fensterorientiertes Steuerelement befindet, liefert FindVCLWindow den Wert nil zurück.