怎样使form在打开时才创建，而不是一运行程序就创建？

Question

在PROJECT菜单下的OPTION下，将FORM设为Available,在打开之前Create就行了，如：  Application.CreateForm(TForm1, Form1);
Form1.Show;

Answer 1

在PROJECT菜单下的OPTION下的Form页，将不需要在程序运行时就创建的Form移到Available Forms中，在程序中打开时手动创建
Application.CreateForm(TForm1, Form1);
Form1.Show; 

Answer 2

同意楼上，再给你两个好用的函数：
{sc----------------------------------------------------------------------- 
          +++++显示窗体函数：供内部调用。可使窗体只Create一次+++++ 
                        -----参数说明： 
                            FormClass：窗体名 
                            Caption: 窗体标题 
                          Restore：显示为原来大小。 
-----------------------------------------------------------------------sc} function InternalFindShowForm(FormClass: TFormClass; 
  const Caption: string; Restore: Boolean): TForm; 
var 
  I: Integer; 
begin 
  Result := nil; 
  for I := 0 to Screen.FormCount - 1 do begin 
    if Screen.Forms[I] is FormClass then 
      if (Caption = '') or (Caption = Screen.Forms[I].Caption) then begin 
        Result := Screen.Forms[I]; 
        Break; 
      end; 
  end; 
  if Result = nil then begin 
    Application.CreateForm(FormClass, Result); 
    if Caption <> '' then Result.Caption := Caption; 
  end; 
  with Result do begin 
    if Restore and (WindowState = wsMinimized) then WindowState := wsNormal; 
    Show; 
  end; 
end;function ShowDialog(FormClass: TFormClass): Boolean;
var
  Dlg: TForm;
begin
  Application.CreateForm(FormClass, Dlg);
  try
    Result := Dlg.ShowModal in [mrOk, mrYes];
  finally
    Dlg.Free;
  end;
end; 

Answer 3

很容易的，form1:=tform1.create(self);
要先声明form1 

Answer 4

在delphi的项目选项中把你所想创建的form放到右边的栏里头就行了
然后在form.close中
action:=cafree;
就好了

Answer 5

先在options里去掉加载的窗体。
然后在主程序中写：如窗体名为form1 则
form1:=tform1.create(nil);
form1.showmodal;
就可以了。