在VB中引用对象用下面语句:
dim Obj as Object
set Obj=frmMain
Obj.width=5000请问在Delphi如何实现上述VB中实现的功能???

解决方案 »

  1.   

    var obj:tform;
    begin
      obj:=tform.Create(self) ;
      obj.width:=5000;
      obj.Show;
    end;
      

  2.   

    var obj:tform;
    begin
      obj:=tform.Create(self) ;
      try
        obj.width:=5000;
        obj.ShowModual;
      finally
        obj.free;
      end;
    end;
      

  3.   


    var obj:tform;
    begin
      obj:=tform.Create(self) ;
      try
        obj.width:=5000;
        obj.ShowModual;
      finally
        obj.free;
      end;
    end;
    没有错。
      

  4.   

    var
      Obj:TObject;
    ....
      Obj:=TFrmMain.Create(Application);
      Obj.Width:=5000;
    ....个人认为没有必要使用异常....
      

  5.   

    var
       obj: TControl;
    begin
       obj := frmMain;
       obj.Width := 500;
    end;或者是 frmMain.Width := 500; 这样直接了。
      

  6.   

    var
      Obj:TForm;
    ....
      Obj:=TForm.Create(Application);
      Obj.Width:=5000;
    ....