Dear All:    之前請教過幾位前輩關於Form Create及Show方法,但有個疑問至今無法解決,煩請各位前輩再度指教... 是這樣的;我利用MainMenu建立了下拉式的功能,要以下拉式功能中的一選項呼叫表單(ex: Unit名employee, Form名emp),我按照指點使用其語法如下:    unit Bs_Main;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Menus;    type   TMain = class(TForm)     MainMenu1: TMainMenu;     F1: TMenuItem;     N1: TMenuItem;     procedure N1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;    var   Main: TMain;    implementation uses Employee;    {$R *.dfm}    procedure TMain.N1Click(Sender: TObject); begin   emp.Create(self);   try   emp.ShowModal;   finally   emp:=nil;   end; end;    end.    表單可以顯示出來,但是跟著Main Form執行時一起出來,而不是因為按下其中MainMenu功能中一選項而出現的...,請教是否有方法可以解決此問題,感謝各位前輩,謝謝!    

您將emp這個Form設成Available form即可 即在Delphi Menu/Project/Options在Form的頁夾將emp從Auto-create forms移到Available forms就可以了，試試看吧… ~小弟淺見，參考看看~

------
~小弟淺見，參考看看~

引言: 您將emp這個Form設成Available form即可 即在Delphi Menu/Project/Options在Form的頁夾將emp從Auto-create forms移到Available forms就可以了，試試看吧… ~小弟淺見，參考看看~

可以了!!!感謝您~

nick6562您好： 试着做了一次，并不会同时出现两个窗口，代码如下：

unit Bs_Main;
interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;    type
  TMain = class(TForm)
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    N1: TMenuItem;
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Main: TMain;    implementation    uses employee;    {$R *.dfm}    procedure TMain.N1Click(Sender: TObject);
begin
  emp:=Temp.Create(self);
  try
    emp.ShowModal;
  finally
    emp.free;
  end;
end;    end.    unit employee;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;    type
  Temp = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  emp: Temp;    implementation    {$R *.dfm}    end.
dpr
program Project1;    uses
  Forms,
  Bs_Main in 'Bs_Main.pas' {Main},
  employee in 'employee.pas' {emp};    {$R *.res}    begin
  Application.Initialize;
  Application.CreateForm(TMain, Main);
  Application.CreateForm(Temp, emp);
  Application.Run;
end.

执行结果没错，按N1才显示出emp窗体，试试看 ——行径窄处，留一步与人行—— ——

引言: nick6562您好： 试着做了一次，并不会同时出现两个窗口，代码如下：

unit Bs_Main;
interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;    type
  TMain = class(TForm)
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    N1: TMenuItem;
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Main: TMain;    implementation    uses employee;    {$R *.dfm}    procedure TMain.N1Click(Sender: TObject);
begin
  emp:=Temp.Create(self);
  try
    emp.ShowModal;
  finally
    emp.free;
  end;
end;    end.    unit employee;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;    type
  Temp = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  emp: Temp;    implementation    {$R *.dfm}    end.
dpr
program Project1;    uses
  Forms,
  Bs_Main in 'Bs_Main.pas' {Main},
  employee in 'employee.pas' {emp};    {$R *.res}    begin
  Application.Initialize;
  Application.CreateForm(TMain, Main);
  Application.CreateForm(Temp, emp);
  Application.Run;
end.

执行结果没错，按N1才显示出emp窗体，试试看 ——行径窄处，留一步与人行—— ——>< face="Verdana, Arial, Helvetica"> 果然是高手!!