高手请进,小鸟一问!

Question

在主Form1的Create 事件中动态创建一个窗口 Form2 ,Form2上有一按钮.如实现点击Form2上的按钮
来关闭整个程序???急求!

Answer 1

form1.Close; 或 Application.Terminate;

Answer 2

以下是我Form1中的代码
procedure TForm1.Create(Sender: TObject);
begin
         Form2:=Form2.Create(nil);
         Form2.ShowModal;
end;
以下是我Form2中的代码
procedure Form2.Button1Click(Sender: TObject);
begin
      Application.Terminate;  
end;
当Form2显示出来后，我点按钮。可是不能关闭整个程序。

Answer 3

以下是我Form1中的代码
procedure TForm1.Create(Sender: TObject);
begin
         Form2:=TForm2.Create(nil);
         Form2.ShowModal;
end;
以下是我Form2中的代码
procedure Form2.Button1Click(Sender: TObject);
begin
      Application.Terminate;  
end;
当Form2显示出来后，我点按钮。可是不能关闭整个程序。

Answer 4

procedure TForm1.Button2Click(Sender: TObject);
begin
Form2:=TForm2.Create(Self);
Form2.ShowModal ;
Form2.Release;
close;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
close;
end;

Answer 5

PostMessage(Application.Handle,WM_CLOSE,0,0);

Answer 6

在窗体1 的按钮加如下事件：
procedure TForm1.Button1Click(Sender: TObject);
begin
  form2:=Tform2.create(nil);
  form2.ShowModal;
end;
在窗体2的按钮加如下事件：
procedure TForm2.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
我试过了能实现。
注意：form1的unit1要包含unit2。在options中要把form2加到available froms中。