我自己做的一个窗体模块,已经测试运行正常,
到用别人做的窗体动态加载后出现以下情况:在运行时:1: Edit不能获得输入焦点,但ComboBox可以
2:调用我的窗体的方法,属性会出错:Acess Vlilation错误。
3:别人加载我的窗体的方法:
MyFrm := TMyFrm.Create(Panel1);//Panel1是加载我的窗体模块的窗体上的
      with Frm_PriceSetPara do
      begin
         Parent := Panel1;
         Left := Panel1.Left;
         Top := Panel1.Top;
         Height := Panel1.Height;
         Width := Panel1.Width;
         Visible := true;
      end;程序代码有点长,所以大家能给点思路,俺也给分,谢谢!!!!
我觉得,可能是加载窗体的错误,但找不到原因。

解决方案 »

  1.   

    Visible := false;
    应是存取错误
    调试一下看是访问哪个组件出的错
      

  2.   

    Acess Vliolation错误已经解决,是指针的错误但还有一事不明: 我的窗体模块中的Edit不能获得焦点,但同Parent下的ComboBox却可以的
      

  3.   

    MyFrm := TMyFrm.Create(Panel1);//Panel1是加载我的窗体模块的窗体上的
          --with Frm_PriceSetPara do 你这个窗体应该是个全局变量吧
          with MyFrm do
          begin
             Parent := Panel1;
             Left := Panel1.Left;
             Top := Panel1.Top;
             Height := Panel1.Height;
             Width := Panel1.Width;
             Visible := true;
          end;而且你这个窗体如果不是ShowModal的话,应该在FormClose事件中
    procedure TFrm_PriceSetPara .FormClose(Sender: TObject; var Action: TCloseAction);
    beginend;
      

  4.   

    忘了一句
    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
     Action := caFree;
    end;
      

  5.   

    但还有一事不明: 我的窗体模块中的Edit不能获得焦点(但鼠标移动到它上面时,是可以显示编辑光标图形的),但同Parent下的ComboBox却可以的请问这是啥原因导致的?