为什么我的程序，一启动就自动开了几个窗体？我明明没有SHOW他们的啊！不知道怎么办？为什么？

Question

RT

Answer 1

program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit6 in 'Unit6.pas' {Form6},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.Run;
end.

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, ToolWin, ComCtrls, ExtCtrls, Menus, Buttons;type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ControlBar1: TControlBar;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2, Unit3, Unit5, Unit6;{$R *.dfm}end.

Answer 3

unit Unit6;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB;type
  TForm6 = class(TForm)
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form6: TForm6;implementationuses Unit1;{$R *.dfm}end.

Answer 4

unit Unit3;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, DBCtrls, ADODB, ExtCtrls, Grids, DBGrids;type
  TForm3 = class(TForm)
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Shape1: TShape;
    DBGrid1: TDBGrid;
    ADODataSet1spfl_id: TAutoIncField;
    ADODataSet1spfl: TStringField;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form3: TForm3;implementationuses Unit1, Unit4, Unit5;{$R *.dfm}procedure TForm3.Button1Click(Sender: TObject);
begin
  ADODataSet1.Append;
  Form4.ShowModal;
end;procedure TForm3.Button3Click(Sender: TObject);
begin
  Form4.ShowModal;
end;procedure TForm3.Button2Click(Sender: TObject);
begin
if application.messagebox('真的要删除吗？','提示',MB_YESNO+MB_DEFBUTTON1)=IDYES then
begin
  Form3.ADODataSet1.Delete;
end;
end;end.

Answer 5

亲王阿，按照如下操作点击菜单Project->Options->Forms;自己看看就明白了

Answer 6

Project->Options
有个主窗体的选项

Answer 7

Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
这不是创建是什么？把不需创建窗体的代码去掉就行了,或者如 grail_(grail_)所说

Answer 8

打开project->options
将不要的窗体从AutoCreate中去掉。

Answer 9

Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);只要Create一个主窗体就可以了，其它的去掉！

Answer 10

Application.CreateForm(TForm3, Form3);Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm6, Form6);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm4, Form4);注意顺序，先生成TForm3

Answer 11

Project->option->forms
去掉你不愿意在程序开启时创建的窗体。

Answer 12

同意楼上，与代码无关Project/Option/Auto-Create Form 去掉不需要启动时创建的窗体

Answer 13

同意slley(酸菜+鸟汤) 的说法，把不需要启动的FORM弄到右边去！

Answer 14

你的代码是没问题的，可能你把窗体的VISIBLE设为True了，改为False即可

Answer 15

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  form1.showmodal;
end.

Answer 16

来晚了，接分...
Project/Option/Auto-Create Form 去掉不需要启动时创建的窗体

Answer 17

你的程序是 MDI 界面的吧？

Answer 18

禀王爷：佛的光辉说的有道理，给你段代码，用来开启不同的窗口：
procedure Tmain_form.OpenForm(FormClass: TFormClass; var fm; AOwner:TComponent);
var
  i: integer;
  Child:TForm;
begin
  for i := 0 to Screen.FormCount -1 do
      if Screen.Forms[i].ClassType=FormClass then
      begin
        Child:=Screen.Forms[i];
        if Child.WindowState=wsMinimized then
           ShowWindow(Child.handle,SW_SHOWNORMAL)
        else
           ShowWindow(Child.handle,SW_SHOWNA);
        if (not Child.Visible) then Child.Visible:=True;
        Child.BringToFront;
        Child.Setfocus;
        TForm(fm):=Child;
        exit;
      end;
  Child:=TForm(FormClass.NewInstance);
  TForm(fm):=Child;
  Child.Create(AOwner);
end;
你在彩旦里开窗口别直接开，这么开就智能些了。
我从delphibox的馒头的代码里偷来的，希望他不要打我：）

Answer 19

还是那个建议：
Project->option->forms
去掉你不愿意在程序开启时创建的窗体。

Answer 20

但是，程序开启时创建的窗口不一定都显示阿？
应该是只显示mainform吧？