不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

主窗体隐藏问题

楼主donny2000（阿峰）2002-09-30 10:21:50 在 Delphi / VCL组件开发及应用提问

我在主窗体前想作一个登陆窗口想主窗体一开始是隐藏的但是怎么也隐藏不了问题点数：20、回复次数：12Top

1 楼winder_008（风中追沙）回复于 2002-09-30 10:28:01 得分 0

在主窗体ｓｈｏｗ之前或者ｃｒｅａｔｅ的时候ｓｈｏｗ你的登录窗体就可以了Top

2 楼breezing（网上的小鱼）回复于 2002-09-30 10:28:47 得分 0

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

3 楼acqy（Just Programmer）回复于 2002-09-30 10:33:32 得分 0

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;

interface

uses
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;

interface

uses
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;

implementation

uses 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.

Top

4 楼swayi21（微斯人）回复于 2002-09-30 10:35:55 得分 0

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

5 楼donny2000（阿峰）回复于 2002-09-30 10:38:46 得分 0

好像主窗体必须最先createTop

6 楼ssl2000（大宋）回复于 2002-09-30 10:39:52 得分 10

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

7 楼Tianwl（）回复于 2002-09-30 10:42:25 得分 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;
试试看。准行。Top

8 楼donny2000（阿峰）回复于 2002-09-30 10:45:46 得分 0

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

9 楼yangpeng106（小牛）回复于 2002-09-30 10:51:40 得分 0

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

10 楼blazingfire（烈焰)(对.net极度憎恨中....）回复于 2002-09-30 10:54:47 得分 5

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

11 楼donny2000（阿峰）回复于 2002-09-30 10:57:35 得分 0

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

12 楼wangzn1979（梦郎2003）回复于 2002-09-30 10:58:03 得分 0

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