Entwickler-Ecke

Sonstiges (Delphi) - Absolute Bildschirm-Position


Peti - Fr 15.11.02 12:00
Titel: Absolute Bildschirm-Position
Hallo zusammen!

Weiss zufällig jemand, ob und wie ich die absolute Position von z.B. einem Button ermitteln kann?
Ich habe z.B. einen Button IN einem TabSheet IN einem PageControl IN einem Panel IN einem Formular mit Menü..... :-)

Also mit TOP oder LEFT ist hier nicht viel zu machen...

Gibt es keinen Weg, die wirklich ABSOLUTE Position vom Screen festzustellen???

Danke schonmal für Tips,
Peti


Peti - Fr 15.11.02 12:17

Entschuldigt, dass ich etwas vorschnell hier gepostet habe - ich habe inzwischen die Lösung gefunden... :-)

Falls noch jemand dasselbe Problem hat:


Quelltext
1:
2:
3:
4:
5:
var
  p: TPoint;
begin
  p := Form1.Button1.ClientToScreen(Point(0,0));
end;


Gruß,
Peti


Anonymous - Fr 15.11.02 16:49

Es gibt eine Methode die ist noch etwas einfacher. Jede visulle Komponente hat ClientOrigin. Client Orgin hat die Koordinatenwerte x/y zu der oberen linken Ecke des Bildschirms.


Quelltext
1:
2:
ShowMessage(IntToStr( Button1.ClientOrigin.x ));
ShowMessage(IntToStr( Button1.ClientOrigin.y ));