Componentes.Terceros.jvcl/official/3.36/examples/JvInterpreterDemos/JvInterpreterTest/samples/sample - test1.pas
2009-02-27 12:23:32 +00:00

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;