Label unter Mausposition

[negaH]

Delphi-Quellcode:

procedure TForm1.MouseMove();
var
  C: TControl;
begin
  C := Controls.FindDragTarget(ClientToScreen(Point(X, Y)), True);
  if C is TLabel then
  begin
  end;
end;

Gruß Hagen