sample - test1.pas

来自「最新版 JCL+JVCL控件！非常不错的控件资源。包含了所能用到的大部分功能！」· PAS 代码 · 共 9 行

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