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

Delphi-Quellcode:

TControl

(z.B. ein Button) in einem

Delphi-Quellcode:

TPanel

steckt liefern die Properties

Delphi-Quellcode:

Left

und

Delphi-Quellcode:

Top

ja die Koordinaten im Verhältnis zum übergeordneten

Delphi-Quellcode:

TPanel

. Jetzt würde ich allerdings gerne wissen, welche Koordinaten der

Delphi-Quellcode:

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:

Zitat von stahli (Beitrag 1220332)

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]

:thumb:

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

[Der schöne Günther]

Zitat:

Zitat von Uwe Raabe (Beitrag 1220342)

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 :-)