用Delphi打开CAD时,怎样控制CAD窗口的位置及大小 为什么下面的程序不对呢,应该是这样的呀
procedure TForm1.Button1Click(Sender: TObject); var AcadApp : OleVariant; begin AcadApp := CreateOleObject('AutoCAD.Application'); AcadApp.Left:=50; AcadApp.Top:=10; AcadApp.Width:=500; AcadApp.Height:=500; AcadApp.visible := true; |