你这样声明函数ShowForm(var panel:TPanel); 不是更好么?cPanel := TPanel(Panel);这句根本不可能。
你跟踪一下,应该不会有值的啊。

解决方案 »

  1.   

    shangshang(大雪有痕):
    还是不行,问题出错还是一样
      

  2.   

    var
      DefaultFrm: TFrame1;procedure ShowForm(var  Panel:Tpanel);
    begin
      DefaultFrm := TFrame1.Create(cPanel);
      DefaultFrm.Parent := Panel;
      DefaultFrm.show;
    //试试这个,我有时间帮你详细调试一下。
    end;
      

  3.   

    shangshang(大雪有痕):还是不行,我首先就用过这方法,调试DefaultFrm.Parent := Panel;时它会提示can't assign a TFont to a TFont
    其实我不采用dll传递,直接在一个exe中测试以上代码是成功的
      

  4.   

    我也遇到这个问题啊 can't assign a TFont to a TFont
    怎么解决呢?!
    谢谢!