是这样的,我用一个FORM1作为MAINFORM,然后,我想在FORM1内点击一BUTTON后,能弹出FORM2(FORM2的作用:FORM2内放置一DBLOOKUPLISTBOX,用来存放记录的帮助信息,点击某一行记录后,FORM2再消失),而且,FORM1不能消失,即FORM2,FORM1同时出现,FORM2叠在FORM1之上。当然,FORM2的形状比FORM1小的多。
不知,我说得是否清楚,请高手指教.
谢谢!

解决方案 »

  1.   

    用mdiform,然后form2的DBLOOKUPLISTBOX的双击事件中(DBCLICK)加入你想要实现的代码!
      

  2.   

    点Button的时候Form2.ShowModal;
    点击某一行记录后Form2.ModalResult := mrOK就好了
      

  3.   

    谢谢snakeguo的建议,似乎是可行的。
    另:问jwboyr:我只看到有mdiapplication而没看到mdiform?
      

  4.   

    同Snakeguo(楠) (莫等闲&up2myself
      

  5.   

    如果两个不是独立的PAS。。
    那么。。继承一个和FORM1一样子的。。
    Var Form2:Tform1;
    begin
    form2.create(self);
    form2.height:='你想要的高度。';
    form2.width:='你想要的宽度';
    form2.show;
    end;
    如果是独立的PAS。
    那么要在implemetion中加入:
    uses unit2;//如果你的FORM2是在unit2.pas中的话。。