package 访问窗体上的控件

本帖最后由 agadf 于 2009-08-28 15:41:42 编辑

解决方案 »

  1.   

    build   with   runing   package选项选上   
    然后主程序用LoadPackage和UnLoadPackage方法调用和卸包 
      

  2.   

    var
      AClass: TPersistentClass;
      uForm: TForm;AClass := GetClass('TForm2');
    Application.CreateForm(TComponentClass(AClass), uForm);
    uForm.edit1.text:='aaaa'
      

  3.   


    多谢，不过uForm.edit1.text:='aaaa' 编译通不过么 显示：E2003 Undeclared identifier: 'edit1'
      

  4.   

    不能执行的， TForm中并没有edit1元件。
    可以把TForm2的单元引进来，然后再如下处理；var
       AClass: TPersistentClass;
       uForm: TForm; AClass := GetClass('TForm2');
     Application.CreateForm(TComponentClass(AClass), uForm);
     TForm2(uForm).edit1.text:='aaaa'TForm2所在的单元一定要注册才可以；
    在最后end.前添加
    initialization
      RegisterClass(TForm2);
    finalization
      UnRegisterClass(TForm2);
      

  5.   


    还是不行大哥
    运行 TForm2(uForm).edit1.text:='aaaa' 没反应
      

  6.   

    终于搞定了，感谢SmallHand大哥