I AM A GIRL PROGRAMER，I HAVE A QUESTION TO ASK ....

Question

我最近做了个程序，建立了一个父窗体和若干子窗体，运行后弹出所有的子窗体。我想实现点击一个按扭弹出一个子窗体，但是把所有的子窗体都弹出了。请问这是为什么？请给出源码，谢！

Answer 1

双击button在代码里写
form1.show

Answer 2

菜单[Project]->[Options...]的Forms页把子窗体从
Auto-create forms: 框里移至 Available forms: 框里

Answer 3

菜单Project->Options中。Forms页
把Auto-Create Forms 中的Form移动到Available Form中。然后把你要显示的窗体手动创建。
var
  Form1: TForm;
begin
  if not Assigned(Form1) then
    Form1 := TForm.Create(Self);
end;//关闭时的动作
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Form1 := nil;
end;这只是个例子，详细的你要看书。