想先闪现窗体--》主窗体==》登陆窗口 工程源文件怎么设置

⒈开始一个新工程。给表格起名为MainForm,MainForm的单元起名为Main, 工程文 件起名为Test。
⒉在MainForm中插入一个Button部件，将其Caption属性设为“关闭”，为该部件 的onClick事件创建一个过程，并在过程的begin和end之间插入Close语句。
⒊在应用程序添加一个表格，将这个表格起名为MoveForm，MoveForm 的单元起名 为Move。
⒋为便于演示，在MoveForm中插入一个Label部件，设置其Caption 属性为“欢迎 进入本系统”。
5.下一步修改工程的源代码。选择View/Project Source，修改begin和end之间的 语句如下：
程序清单Test.Dpr
program Test
uses
forms,
Main in ’MAIN.PAS’{MainForm},
Move in ’Move.PAS’{MoveForm}

{$R *.RES}

begin
MoveForm:=TMoveForm.Create(Application);{Create创建闪现窗口对象}
MoveForm.Show;
MoveForm.Update;
Application.CreateForm(TMainForm,MainForm);
MoveForm.Hide;
MoveForm.Free;{Free从内存中释放对象}
Application.Run;
end.
　　第一条语句创建了对象，该对象存在内存中，但还不能看见， 为了让它出现并更 新它的内容，调用对象的Show和Update成员函数：Show和Update。 当闪现窗口使 用完后，用Hide函数将它隐藏起来，然后用Free函数释放它所占据的内存。
6.如果此刻你编译和运行程序，MoveForm窗口一闪而过， 你可能未来得及看 清。为使MoveForm窗口显示几秒种，我们可为MainForm的OnCreate 事件创建一个 处理程序，延迟MoveForm窗口的显现时间。
program TMainForm.FormCreate(sender:Tobject);
var
currentTime:LongInt;
begin
currentTime:=GetTickCount div 1000;
while ((GetTickCount div 1000)<(currentTime+3) do
{不做任何事);
end;
end.
　　GetTickCount函数返回窗口启动后过去的毫秒数，这个值除以1000 转化为秒数。 此时你编译运行程序，就能得到一个延迟3秒多的闪现窗口。
为闪现窗口添加上Image部件，再对字体及窗口进行修饰，我们就能为应用程 序，创建一个精美的封面或在程序启动时显示重要提示。

制作登录窗体一个很方便的方法就是主窗体作为主窗体，登录成功Hide掉就行了。
如果登录窗体不可以作为主窗体，那么和闪现窗体一样的方法创建登录窗体，加在Application.Run;之前，MoveForm.Free;之后，
用showmodal显示登录窗体