Nächstes Control zu einem Punkt finden

[argonix]

Hallo!
Wie kann ich, wenn ich einen Punkt vorgebe das Control finden, welches am nächsten zu diesem Punkt liegt?
(Möglichst nah an diesem Punkt ist)
Ich habe es mit FindControlAtPosition() probiert, diese Lösung ist aber unglaublich langsam und ineffizient. Geht das eleganter als in einem Bereich jeden Punkt einzeln abzufragen?

[Mithrandir]

Idee:

Leg dir eine Liste an. In dieser speicherst du zu jedem Control die Koordinaten links oben und die rechts unten. Und dann musst du nur noch durch die Liste iterieren, und gucken, ob sich dieser Punkt in dem Rechteck befindet.

Funktioniert mit jeder IDE...

[argonix]

Hmm... Ich will nicht schauen, ob das Control da ist, sondern ob es nah ist. (Am besten ohne extra-Liste)
Das heist, das Control welches die kleinste XY-Differenz zu den Koordinaten des Punktes hat soll zurückgegeben werden.

[Medium]

Dann must du immer und immer wieder den Abstand vom Punkt zu allen Controls ausrechnen, und den kleinsten davon nehmen. Das erschwert sich hierbei ggf, je nach dem wie genau du es haben magst.
Das einfachste wäre es den Abstand zum Mittelpunkt eines Controls zu berechnen, der ist ja schnell gefunden (zumindest bei rechteckigen). Aufwendiger wird es, wenn du die Kanten haben willst, dann musst du nämlich Abstände von Punkt zu Strecken berechnen, bzw. genauer: Punkt zu Gerade und dann noch bestimmen ob der Fußpunkt auch im Segment der Geraden ist, dass die Strecke darstellt. Zudem bekommst du dann Abstände >0 wenn du innerhalb des Controls bist, d.h. das müsste ggf. gesondert behandelt werden.

[argonix]

Sie sind alle rechtecking oder rund, das ist kein Problem. Schade, dann geht es wohl nicht ohne listen und Sortierfunktion.
Aber ich glaube, die kriege ich noch etwas intelligenter hin.
Vielen Dank für die Hilfe!

[Medium]

Wenn du recht viele Elemente hast, bzw. das ganze wirklich flott sein muss, schau dir mal Quadtrees (2D-Variante von Octrees) an. Wobei auch schon eine einfache Segmentierung der Fläche + Zuordnung der Komponenten zu den Segmenten hier ausreichen sollte, du wirst vermutlich eher weniger als tausende von Controls haben

[Aphton]

Probier mal Folgendes

Delphi-Quellcode:

//**
//** Gibt den am naheliegendsten Control zurück
//** - wobei die Distanz ausgehend vom Mittelpunkt
//** - der einzelnen Controls berechnet wird
//**
function NearestControl(const Position: TPoint; const MainControl: TControl): TControl;
var
  i, j: Integer;
  lDis, cDis: Single; // last distance, current distance
  function DistanceTo( Control: TControl ): Single;
  var
    x, y: Single;
  begin
    with Control do
    begin
      x := Left + ( Width  div 2 ) - Position.X;
      y := Top  + ( Height div 2 ) - Position.Y
    end;
    Result := SQRT( x*x + y*y );
  end;
begin
  Result := NIL;
  if MainControl.ComponentCount = 0 then
    Exit;
  j := -1;
  Result := TControl( MainControl.Components[0] );
  lDis := DistanceTo( Result );
  if MainControl.ComponentCount < 2 then
    Exit;
  for i := 1 to MainControl.ComponentCount - 1 do
  begin
    cDis := DistanceTo( TControl( MainControl.Components[i] ) );
    if cDis < lDis then
    begin
      lDis := cDis;
      j := i;
    end;
  end;
  if j > 0 then
    Result := TControl( MainControl.Components[j] );
end;

//**
//** Beispiel: Klatsch ein paar Controls auf die Form, und füge diesen Code in OnMouseDown() ein!
//**
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
var
  c: TControl;
begin
  c := NearestControl( Point( X, Y ), Form1 );
  if Assigned( c ) then
    c.Enabled := not c.Enabled;
end;