问一下,如何在主窗体中实现单击一下按钮另一个窗体就能弹出来啊?
我这样做了,为了显示所要的窗体为主窗体,我现在project中选options,将需要的窗体设置为主窗体了,然后这个窗体是一运行就能作为主窗体弹出了,另一个form的窗体我取名为unit_choose,我在主窗体的程序uses中添加了uses_choose;,我想点击主窗体的按钮能显示unit_choose中的form,大致程序如下:
implementation
uses
 //AssignGroup;
 unit_choose;
 {$R *.dfm}
procedure TFrmEditUsr.BT_NUsRightClick(Sender: TObject);
begin
 //FrmAssign.ShowModal;
 unit_choose.Form1.ShowModal;
end;
为什么一单击主窗体上的按钮就报错啊,各位大虾看看我哪弄错了啊

解决方案 »

  1.   

    要显示的是MDI的子窗体吗?
    用unit_choose.Form1.Show试一下
      

  2.   

    是不是你把窗口做成了动态生成哦,如果是这样在options中其设成Auto_Create或者
    添加如下代码:
     unit_choose.create();
      

  3.   

    报什么错?
    子窗体的打开:
    if form1 = nil then
    form1 := Tform1.Create(self);还需要做的是在主窗体中的public里定义form1
      public
        { Public declarations }
        form1:TForm;并且uses这个form1的的pas文件,如
    uses unit1等等。