如何在一个form里的一个按钮click事件里关闭当前窗口,打开另外一个窗口.谢谢..

Question

如何在一个form里的一个按钮click事件里关闭当前窗口,打开另外一个窗口.谢谢.
代码如何写,我是一个新手...

Answer 1

Application.CreateForm(TForm2, Form2);
 close;

Answer 2

本窗口为form1 另外的为form2在本窗口的click里写，application.CreateForm(Tform2,form2);
                     form2.Show;
                     form1.Free;
别忘了在unit1单元的uses里加上unit2引用一下

Answer 3

如果你的form1是主窗体，就hide,别close.那样会把所有的窗体close的
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.hide;
form2.Show;
end;如果不是主窗体
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.close;
form2.Show;
end;

Answer 4

同意： cxreal(夜晚的猪)，要不然会出问题

Answer 5

hide后  怎么释放主窗体？

Answer 6

如果你的form1是主窗体，就hide,别close.那样会把所有的窗体close的
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.hide;
form2.Show;
end;如果不是主窗体
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.close;
form2.Show;
end;

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
begin
form2:=Tform2.create(self);
 try
 form2.showmodal;
finally
 form2.free;
end;procedure TForm1.timer1timer(sender:TObject);
begin
 form1.hide;
 form2.close;
end;