主窗体隐藏问题

Question

我在主窗体前想作一个登陆窗口 想主窗体一开始是隐藏的 但是怎么也隐藏不了

Answer 1

在主窗体中或project生成主窗体前create 登陆窗口

Answer 2

program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  Application.Initialize;
Application.CreateForm(TForm2, Form2);
  Application.Run;
end.
以下是Form1的代码：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate;
end;end.
以下是Form2的代码：unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementationuses Unit1;{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
begin
if edit1.Text ='ff' then begin
Application.CreateForm(TForm1, Form1);
    form1.Show;
    self.hide;
end;
end;end.

Answer 3

Application.Initialize;
try
  登录窗口显示
finally
  登录窗口隐藏
end;
Application.Run;

Answer 4

project中 
 Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  application.ShowMainForm:=false;//隐藏主窗体

Answer 5

begin
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TFRM_YHDL, FRM_YHDL);
  FRM_YHDL.SHOWMODAL;
  if (FRM_YHDL.modalresult=1) or (FRM_YHDL.modalresult=5) then
  begin
    Application.Initialize;
    Application.Title := '统计报表';
    Application.CreateForm(TMainForm, MainForm);
    Application.Run;
    exit;
  end;
试试看。准行。

Answer 6

acqy(Just Programmer) 你是将登陆窗体作为主窗体吧 但是我不能将登陆窗体作为主窗体 因为我的主窗体是MDI窗体

Answer 7

begin
  Application.Initialize;
Application.CreateForm(TForm2, Form2);
  Application.Run;
 acqy(Just Programmer) 的方法好像可行！我去试试！

Answer 8

在MainForm的OnCreate事件中写
procedure TMainForm.Create(Sender:TObject);
begin
  Application.ShowMainForm:=False;
end;

Answer 9

ssl2000(大宋) 的方法不错 3xs

Answer 10

在主窗口的onshow的事件中,执行如下代码:
try
   登录窗口.showmodal;
finally
   登录窗口.free;
end;