sample - -1.pas

来自「jvcl driver development envionment」· PAS 代码 · 共 26 行

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.