MDI窗体的问题？

Question

在MDI子窗体上加一个按钮，怎样打开另一个窗体？谢谢

Answer 1

form.show or form.showmodal 不可以？

Answer 2

procedure Tframeform.Button1Click(Sender: TObject);
begin
Application.Createform(Tadozwgl,adozwgl);
end;
//adozwgl为窗体名称
//须用Use Unit将需要打开的窗体加用来(Alt+F11)

Answer 3

procedure TMainFrm.button1Click(Sender:TObject);
var
 i:integer;
 B_Exit:Boolean;
begin
  B_Exit:=False;
  for  I:=MainFrm.MDIChild.Count-1 downto 0 do
  begin
    if MainFrm.MDIChildren[i].Name='adozwg1' then
    begin
SendMessage(MDIChildren[i].Handle,WM_SYSCOMMAND,SC_RESTORE,0);
B_Exit:=True;
break;
    end;
end;
if not B_Exit then
Application.CreateFrom(Tadozwg1,adozwg1);
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
   Form2.Create(Application);
end;

Answer 5

procedure Tframeform.Button1Click(Sender: TObject);
begin
Application.Createform(Tadozwgl,adozwgl);
adozwgl.show;  //or adozwgl.showmodal; 
end;