david
7ebea5ffa7
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
9 lines
147 B
ObjectPascal
9 lines
147 B
ObjectPascal
var
|
|
B : TPoint;
|
|
P: TPoint;
|
|
begin
|
|
P := Point(0, 0);
|
|
B := Application.FindComponent('Test').ClientToScreen(P);
|
|
Result := B.X;
|
|
end;
|