如何按下子窗体的BUTTON，正常的弹出一个FORM呢！

Question

如何按下子窗体的BUTTON，正常的弹出一个FORM呢！

Answer 1

form := Tform.Create(Self);
form.Showmodal;
form.Free;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin end;
 try
   if form2=nil then
     form2:=tform2.create(application);
    form2.showmodal;
 finally
    form2.free;
 end;
end;

Answer 3

可以试试下面的代码：
  if not assigned(form1) then
   begin
     form1:=Tform1.create(self);
     form1.show;
   end
  else
   begin
     form1.windowstate:=wsnormal;
     form1.show;
   end;

Answer 4

form.show就够了   或者用：
ShowWindow(form1.Handle,SW_SHOW);
应该也可以的~~~~~~~~~~

Answer 5

FormA:=TForm.Create(Self);
FormA.Show;//or FormA.ShowModal;

Answer 6

form.show就够了   或者用：
ShowWindow(form1.Handle,SW_SHOW);
应该也可以的~~~~~~~~~~