有关窗口调用的另一类问题

Question

如何在主窗口中单击菜单栏的某一文字来激活另一个窗体。

Answer 1

procedure ....;
var
  dlg : TfrmAbout;
begin
  dlg := TfrmAbout.Create(Application);
  dlg.ShowModal;
  dlg.Free;
end;

Answer 2

var
   frm :Tfrm;
begin
    frm:=Trm.Create(nil);
    try
       frm.ShowModal;
    finally
       frm.Free;
    end;
end;

Answer 3

procedure Buttonclick(sender:Tobject)
var 
  x:Tform2  (你要显示的窗体)
begin
  x:=Tfrom2.create(nil);
  try 
    x.showmodal;
  finally
    x.free
  end
 end