在函数中调用另外一个单元中定义的类的公共属性方法一定要在implementation中引用,所以你说的情况应该不可能实现。

解决方案 »

  1.   


    function hehe(mwin:Pointer);
    begin
    TForm(mWIn).caption := '就是这样啊';
    end;引用hehe(self);
      

  2.   

    to QQCAT:
    你的例子实际上还是引用的TFORm中的属性,
    如果在FORM1中加一个TFORm没有的公共属性,连编译都通不过。按你说的方法:
    像这样就可以实现了function hehe(aForm:TForm);
    begin
    aForm.caption := '就是这样啊';
    end;引用hehe(TForm1(self))
      

  3.   

    我认为不可能能实现要引用TFormX的属性要么强制传递的对象要么直接传递该对象
      

  4.   

    要在通用函数中使用某类所有的信息,函数如果不知道类信息,神仙也没有办法啊,所以
    我同意yzhshi给函数传递两个参数,一个对象指针引用,一个类型信息,用TFormClass
    定义。