Relative Position Komponente zu GetParentForm(Komponente)

[anse]

Ich habe ein komplexes TForm mit allerlei Panels etc. Auf einem PageControl sitzt ein TEdit (mit .Parent = MeinForm), dessen relative Position zur TForm ich benötige, um es in einem speziellen Fall richtig auszurichten.

Bei TControl.ClientOrigin ist zu beachten, daß es den Punkt auf dem Screen liefert, nicht auf der übergeordneten TForm. Demnach sollte es so gehen:

Delphi-Quellcode:

X := MeinEdit.ClientOrigin.X - GetParentForm(MeinEdit).Left;
Y := MeinEdit.ClientOrigin.Y - GetParentForm(MeinEdit).Top;

Dabei schlagen allerdings ca. 10 Pixel für X + Y meiner "Window-Decoration" zu Buche, also die Ränder meines Vista-Theme-Form, was bei anderen Themes sehr wahrscheinlich mehr (oder weniger) sein wird, daher kein fester Wert.

Kann ich im Zusammenhang mit ClientOrigin die Ränder meiner Form zuverlässig berechnen?

[IIIMADDINIII]

hallo benutze doch einfach width und clientwidth von form:

Delphi-Quellcode:

border := (width - clientwidth) div 2;
titleleiste := height - clientheight - border;

ungetestet

ich hoffe ich habe dir geholfen

[anse]

Problem gelöst, zwar anders aber vielen Dank für den Denkanstoss.

Die X + Y Position bestimme ich einfach über

Delphi-Quellcode:

OffsetRect(MeinEdit.BoundsRect,
  MeinTab.ClientOrigin.X - Form.ClientOrigin.X,
  MeinTab.ClientOrigin.Y - Form.ClientOrigin.Y
  );