Position eines geschachtelten TControl direkt im Verhältnis zur Form

[Der schöne Günther]

Puh, was für ein komplizierter Titel.

Die Frage ist allerdings simpel: Wenn irgendein TControl (z.B. ein Button) in einem TPanel steckt liefern die Properties Left und Top ja die Koordinaten im Verhältnis zum übergeordneten TPanel . Jetzt würde ich allerdings gerne wissen, welche Koordinaten der TButton direkt auf der Form hat.

Klar, ich kann wiederum einfach die Koordinaten des Panels addieren, aber was, wenn das Panel wieder in etwas drinsteckt? Natürlich kann ich mir jetzt einfach etwas basteln das sich immer den Parent anschaut und die Koordinaten solange aufaddiert, bis es kein Parent mehr gibt bzw. das angeschaute Objekt letztendlich die Form selbst ist. Aber da gibt es doch bestimmt etwas fertiges und ich sehe es nicht?

[Aviator]

Ich hab mir die beiden Funktionen letztens selbst geschrieben um das Problem zu lösen. Durchlaufe einfach rekursiv nach oben, bis der Parent eine TForm ist. Obs jetzt der beste Weg ist weiß ich nicht, aber es hat seinen Zweck erfüllt.

Delphi-Quellcode:

function GetCompleteHeight(ChildComponent: TWinControl): Integer;
begin
  if (ChildComponent.HasParent AND (ChildComponent.Parent.ClassType <> TForm)) then
    Result := GetCompleteHeight(ChildComponent.Parent) + ChildComponent.Top
  else Result := 0;
end;

function GetCompleteLeftPos(ChildComponent: TWinControl): Integer;
begin
  if (ChildComponent.HasParent AND (ChildComponent.Parent.ClassType <> TForm)) then
    Result := GetCompleteLeftPos(ChildComponent.Parent) + ChildComponent.Left
  else Result := 0;
end;

[stahli]

Vielleicht auch ClientToScreen und dann die Position des Formulars abziehen...?
Könnte aber Probleme mit dem Rahmen geben.

Insofern ist eine Funktion wie von Aviator sicher geschickter.

[jaenicke]

Zitat von stahli:

Vielleicht auch ClientToScreen und dann die Position des Formulars abziehen...?
Könnte aber Probleme mit dem Rahmen geben.

Da gibts keine Probleme mit dem Rahmen:

Delphi-Quellcode:

// ClientToScreen bezogen auf den Parent und ScreenToClient bezogen auf das Formular, fertig
Self.ScreenToClient(MyControl.Parent.ClientToScreen(MyControl.BoundsRect.TopLeft))

[Uwe Raabe]

Warum nicht gleich ClientToParent?

[stahli]

[OT]Jetzt wollte ich Dir gerade mal einen kleinen Lapsus unterstellen und siehe da... mannooo ... man kann ja das Formular als Parent angeben... [/OT]

[Der schöne Günther]

Zitat von Uwe Raabe:

Warum nicht gleich ClientToParent?

Großartig, genau das! Ich hatte irgendwie übersehen, dass man mittels zweitem Parameter den Parent gezielt angeben konnte.

Aber auch die anderen Vorschläge sind super, Danke auch hier