Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Aktuelle Position eines Controls relativ zum Bildschirm?? (https://www.delphipraxis.net/16280-aktuelle-position-eines-controls-relativ-zum-bildschirm.html)

Cliff 14. Feb 2004 10:45


Aktuelle Position eines Controls relativ zum Bildschirm??
 
Hi,
ich habe da 'mal ein Problem (Bin nicht ganz sicher ob e s über API oder VCL zu lösen ist):

Wie kann ich die Position eines Controls (z.B. Edit) relativ zum Bildschirm bestimmen?

Folgende Situation:
- Ich habe ein Form welches Bildschirmfüllend ist.
- Innerhalb des Forms ist eine GroupBox.
- Innerhalb der Box sind mehrere Controls.
- Mit Hilfe der Funktion 'Screen.ActiveControl' bekomme ich innerhalb einer AppMessage das aktivierte
(geklickte) Control gemeldet.

Nun benötige ich die Position des Controls.
Die Eigenschaft 'Top', bzw. 'Left' gibt mir nur die Position des Controls relativ zu seinem unterlagerten
Element aus (Hier die GroupBox). Wenn ich immer eine GroupBox hätte könnte man es sicherlich verrechnen.
Leider benötige ich die Info sowohl von Controls innerhalb, als auch ausserhalb von GroupBoxen.
Genaugenommen benötige ich die Info sogar unabhängig von irgendwelchen Forms, sondern relativ zum Bildschirm.

Gibt es irgendeine Eigenschaft, bzw. API- Methode mit deren Hilfe ich diese Info erhalten kann?
Ist es evtl. sogar ganz einfach und ich sehe nur den Wald vor lauter Bäumen nicht mehr?

Gruss Cliff

Jens Schumann 14. Feb 2004 11:10

Re: Aktuelle Position eines Controls relativ zum Bildschirm?
 
Hallo,
such mal in der OH nach ClientToScreen

Cliff 14. Feb 2004 13:18

Re: Aktuelle Position eines Controls relativ zum Bildschirm?
 
Dankeschön!

haut hin...

NewPoint:= ActiveControl.ClientToScreen(OldPoint);

Gruss Cliff


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:51 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz