新手请教：各位登陆窗口是怎么做的？？

Question

各位登陆窗口是怎么做的？怎样做到登陆窗口先弹出，又能很好的退出，总之不懂！！

Answer 1

1.在主窗体CREATE时候创建并显示登陆窗体
2。在项目名称里写程序，譬如项目A，修改A单元
 frmmain.create
 frmlogin.create
frmlogin.showmodal
在frmlogin写frmmain.showmodal

Answer 2

方法一：调用Showmodal函数来实现。Showmodal方式使一个窗口为激活窗口，和Show相似，但它令窗口模式化。现举一例说明：⒈开始一个新工程。给表格起名为MainForm
MainForm的单元起名为Main工程文件起名为Test。⒉在MainForm中插入一个Button部件，将其Caption属性设为“关闭”，为该部件的OnClick事件创建一个过程，并在过程的begin和end之间插入Close语句。⒊在应用程序添加一个表格，将这个表格起名为MoveForm，MoveForm 的单元起名为Move。⒋为便于演示，在MoveForm中插入一个Label部件，设置其Caption 属性为“欢迎进入本系统”。⒌建立两个表格之间的关联。在Unit Main的 implementation 中加入语句 usesmove;再为MainForm创建OnActivate事件。procedure TMainForm.FormActivate(sender:TObject);beginMoveForm.Showmodal;end;
⒍从Component模板的System类别中选择一个计时器（Timer），添加入 MoveForm表格中，设置其Interval属性为3000（可根据需要自定义），再为其OnTimer事件添加语句close；加入一个Timer部件目的是用以控制闪现窗口显示时间。在此， MoveForm显示了3秒钟后关闭，主窗口MainForm自动被激活。⒎编译、运行程序，就能得到延迟为3秒的闪现窗口。

Answer 3

在工程文件里面可以这样处理：
===============================================
program wxgl;begin
  Application.Initialize;
  Application.Title :=‘某某系统’;
  Application.CreateForm(Tmainform, mainform);  //先创建MAIN窗体，但是不可见
  Application.CreateForm(TDataModule1, DataModule1);  
  Application.CreateForm(Tloginform, loginform);  //创建登陆login窗体
  loginform.ShowModal ;                            //login窗体出现。
  loginform.Free;
  Application.Run;
end.

Answer 4

在login窗体里可以处理用户和密码验证的事件，成功的话再用mainform.Show;把MAIN窗体现出来就OK了！呵呵。