2个窗体的问题

有2个窗体，Form1和Form2，Form2里有一个按钮button1，现想按下按钮就显示Form1，同时
关闭Form2，button1的代码为：
procedure TForm2.Button1Click(Sender: TObject);
begin
   form1.show;
   form2.Close;
end;project1的代码为
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.但当我按下button1时，Form1一闪就不见了，整个程序退出了。
这该怎么办呢？

解决方案 »

  1.   

    你的button1是不是放在了form1上,那样就会这样
      

  2.   

    你的Form2是不是主窗体呀，如果是则Form2.Hide;
      

  3.   

    用CreateForm创建的第一个窗口是程序的主窗口，它关闭时就程序就退出了！
    所以你的Form2只能Hide，而不能Close；知道了吧？接分！
      

  4.   

    那关闭程序的时候怎么把Form2关闭？
      

  5.   

    你出现的现像就是 Venda(浪子) 所说的原因关闭程序时Form2自动关闭
    Form2.Close或Close
      

  6.   

    form2.close近似等于application.terminate(不知道打错没有）都是结束程序
    而form2.hide只是隐藏了主窗体
      

  7.   

    用CreateForm创建的第一个窗口是程序的主窗口，它关闭时就程序就退出了！
    所以你的Form2只能Hide，而不能Close；知道了吧？接分！
    强烈支持Venda(浪子)  的 答案，就是这么回事