有关登陆的问题!!!(10分)

秋风寒 · 2003-04-15

我的程序执行分3步
1.Logo界面出现,1秒后消失(资源也释放);
2.登陆界面出现,
3.登陆成功后(登陆窗体资源释放),主体界面出现 !!!
//FLogo为Logo窗体;Form1为主窗体;ComeInF为登陆窗体;

我的代码如下：project1
Application.Initialize;
Flogo:=TFlogo.Create(Application);
Flogo.Show;
Flogo.Update;
Flogo.Hide;
Flogo.Close;
Application.Title := '图书室信息管理系统';
Application.CreateForm(TForm1, Form1);
Application.Run;
//主窗体的生成函数
procedure TForm1.FormCreate(Sender: TObject);
begin
sleep(1000);
end;
登陆窗体的确定按钮代码
procedure TComeInF.Button2Click(Sender: TObject);
begin
Application.CreateForm(TForm1, Form1);
Form1.showModule;
ComeInF.Hide;
ComeInF.free;
end;

但实现不了,不知该怎样修改!!!盼高手指点!!!

tianjh007 · 2003-04-15

Start_Form:=TStart_Form.Create(Application);
Start_Form.Show;
Start_Form.Update;
Application.Initialize;
//创建主窗体和其它窗体
Start_Form.Close;
Start_Form.Free;
Application.Run;

或者（我觉得这种方法好，容易控制）
在project中
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
Application.ShowMainForm :=false;
Application.Run;
主窗体中加一个timer控件
procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
timer1.Enabled :=false;
Application.CreateForm(TForm2, Form2);
Form2.Show;
end;

第二个窗体即Form2上加个button
procedure TForm2.Button1Click(Sender: TObject);
begin
frmMain.Show;
Close;
end;

两个单元要相互应用，即在File菜单下选uses unit

tianjh007 · 2003-04-15

你也可以就用主窗体的那个timer或是再加一个timer用来控制非主窗体的显示时间。
一般情况下我是这么作，在mainform上再加一个timer为timer2，它的Enable属性设为false，在timer1的事件中这样写
procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
timer1.Enabled :=false;
Application.CreateForm(TForm2, Form2);
Form2.Show;
timer2.enabled :=true;
end;

procedure TfrmMain.Timer2Timer(Sender: TObject);
begin
timer2.enabled :=false;
//连接数据库等程序的初始化操作
frmMain.Show;
from2.close;
end;

秋风寒 · 2003-04-15

谢谢各位帮忙捧场
我希望没有 timer
并且窗体依次序生成
各位再帮帮忙!!!
最好是修改我得代码!!!!
谢谢

tianjh007 · 2003-04-15

对你的程序改为如下：
project：
begin
Flogo :=TFlogo.Create(Application);
Flogo.Show;
Flogo.Update;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm :=false;
Application.CreateForm(TComeInF, ComeInF);
ComeInF.Show;
Flogo.Close;
Application.Run;
end.

CominF窗体：
procedure TComeInF.Button1Click(Sender: TObject);
begin
Form1.Show;
Close;
end;

秋风寒 · 2003-04-15

对不起:
CominF窗体：
procedure TComeInF.Button1Click(Sender: TObject);
begin
Form1.Show;
Close;
end;
无效Close;不能被执行;

pgjeffrey · 2003-04-15

Application.Initialize;
Flogo:=TFlogo.Create(Application);
Flogo.Show;
Flogo.Update;
sheep(1000);
Flogo.Free;
Application.CreateForm(TComeInF, ComeInF);
ComeInF.ShowMode;
ComeinF.Free;
Application.Title := '图书室信息管理系统';
Application.CreateForm(TForm1, Form1);
Application.Run;

pgjeffrey · 2003-04-15

Sorry 有点错误！！！：）
Application.Initialize;
Flogo:=TFlogo.Create(Application);
Flogo.Show;
Flogo.Update;
sheep(1000);
Flogo.Free;
ComeInF:=TComeInF.Create(Application);
ComeInF.ShowMode;
ComeinF.Free;
Application.Title := '图书室信息管理系统';
Application.CreateForm(TForm1, Form1);
Application.Run;

tianjh007 · 2003-04-16

那就奇怪了
我这是调试好了的啊
是不是你在引用上有问题
要不发过来我给你看看

秋风寒 · 2003-04-16

tianjh007
不知有什么方法可以发给你

tianjh007 · 2003-04-16

tianjh007@163.com

luckyboy97 · 2003-04-16

上面讲的很多了，我就不在讲了[

]

秋风寒 · 2003-04-17

谢谢tianjh007,
正是我要的效果

秋风寒 · 2003-04-17

接受答案了.

有关登陆的问题!!!(10分)

秋风寒

Unregistered / Unconfirmed

tianjh007

Unregistered / Unconfirmed

tianjh007

Unregistered / Unconfirmed

秋风寒

Unregistered / Unconfirmed

tianjh007

Unregistered / Unconfirmed

秋风寒

Unregistered / Unconfirmed

pgjeffrey

Unregistered / Unconfirmed

pgjeffrey

Unregistered / Unconfirmed

tianjh007

Unregistered / Unconfirmed

秋风寒

Unregistered / Unconfirmed

tianjh007

Unregistered / Unconfirmed

luckyboy97

Unregistered / Unconfirmed

秋风寒

Unregistered / Unconfirmed

秋风寒

Unregistered / Unconfirmed

Similar threads