sample - -1.pas

Jedi Code Library JCL JVCL 组件包 JCL+JVCL超过300个组件的非可视/可视大型组件包。

unit a;

function main;
var
  pDlg: TForm;
  pControl: TControl;
  pPoint: TPoint;
begin
  pDlg := TForm.Create(nil);
  try
    pControl := TControl.Create(pDlg);
    try
      pControl.Parent := pDlg;
      pPoint.x := 0;
      pPoint.y := 0;
      pControl.ClientToScreen(pPoint);
    finally
      pControl.Free;
    end;
  finally
    pDlg.Free;
  end;
end;

end.