Código Delphi [-] var pt, pt2:TPoint; begin pt.X := Button2.Left; pt.Y := Button2.Top; pt2 := Button2.ClientToScreen(pt); MessageDlg(Format('x=%d y=%d', [pt2.X, pt2.Y]), mtInformation, [mbOK], 0);
var pt, pt2:TPoint; begin pt.X := Button2.Left; pt.Y := Button2.Top; pt2 := Button2.ClientToScreen(pt); MessageDlg(Format('x=%d y=%d', [pt2.X, pt2.Y]), mtInformation, [mbOK], 0);