请问如何在Delphi中动态创建窗体?送100分

Question

if not assigned(modeless) then
  modeless:=Tmodeless.create(application);

Answer 1

1、首先创建好这个窗体的文件
2、在调用该窗体的单元中使用该窗体单元
3、使用以下的格式进行创建Form1 := TForm1.Create( Self ) //或者将Self替换成Nil
Form1.Show; //显示非模式窗口
...
Form1.Hide;
Form1.Free;Form1 := TForm1.Create( Self ) //或者将Self替换成Nil
Form1.Showmodel; //显示模式窗口
...
Form1.Hide;
Form1.Free;具体的操作，请参考Delphi的帮助！！！

Answer 2

if frmEquinmentManager = nil then
    Application.CreateForm(TfrmEquinmentManager, frmEquinmentManager);
  frmEquinmentManager.ShowModal;

Answer 3

begin
  if not assigned(modeless) then
    modeless:=Tmodeless.create(application);
    modeless.show;
end;procedure Tmodeless.FormDestroy(Sender: TObject);
begin
  modeless:=nil;
end;

Answer 4

with Tfrom.create(self) do
begin
  ...      
  showmodel;
  free;
end;

Answer 5

兄台，是不是这样啊！？
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    frmA: TForm;
  public
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  frmA:= TForm.Create(Self);
  frmA.Width:= 100;
  frmA.Height:= 100;
  frmA.Position:= poMainFormCenter;
  {...}
  frmA.Show;
end;
end.

Answer 6

with Tformtest.create(self) do
  Try
     showmodal
  finally
     free

Answer 7

先创建窗体文件,如为Form2;在option中将Form2从自动创建一栏中移去,后在代码中写
……
   Begin
    Form2:=Application.CreateForm(TForm2,Form2);
    Form2.ShowModal;
    Form2.Delete;
   End;
……

Answer 8

form:=Tform.create(Application);
form.show;
.....
form.free;