Código Delphi [-] var P: TPoint; begin P:= Edit1.ClientToScreen(Edit1.ClientOrigin); // ó, Edit1.ClientToScreen(Edit1.ClientOrigin).Y (X) // P.X: coordenada horizontal absoluta, P.Y: coordenada vertical absoluta
var P: TPoint; begin P:= Edit1.ClientToScreen(Edit1.ClientOrigin); // ó, Edit1.ClientToScreen(Edit1.ClientOrigin).Y (X) // P.X: coordenada horizontal absoluta, P.Y: coordenada vertical absoluta