sample - test1.pas

来自「Jedi Code Library JCL JVCL 组件包 JCL+JVCL超」· PAS 代码 · 共 9 行

var
  B : TControl;
  P: TPoint;
begin
  P := Point(0, 0);
  B := Application.FindComponent('Test').ClientToScreen(P);
  Result := B.X;
end;