寻求制作显示闪屏界面和用户登陆的代码?在线等谢谢!!!
解决方案 »
- 散分. 来谈谈Delphi XE4的试用感受
- 请教一下用Delphi如何实现波形显示
- IdHTTP1.Get能取得所有网页的源代码吗?
- Window 7 (64-bit)下 打印图片 GetDIB 出错。
- delphi如何实现回滚部分事务
- 放200分,献给最可爱的人,祝明天中国灭死小日本!!
- 一个一天来没人回答,不知道是我问的不明白,还是怎么?
- 谁能提供一些用ADO连接并简单操作SQL Server数据库的源码?
- 一封加急电报,燃眉之急呀! 盼着各位大哥帮我解决!
- 我想自己写个应用程序,这个程序就是把别人的程序运行在我的窗体里,怎么做呢?
- 请教类型转换IUnknown->Variant
- 数据库中如何设置唯一索引
....
form2.show;
form2.update;
sleep(1000);
form2.free;
...
主界面MainForm.pas //登陆界面
闪屏界面ActiveForm.pas //可用Image插入背景图片
修改Project.dpr如下:program Project;uses
Forms,
main in 'main.pas' {MainForm},
active in 'active.pas' {ActiveForm};{$R *.res}begin
Application.Initialize;
ActiveForm:=TActiveForm.Create(Application);
ActiveForm.Width:=500;
ActiveForm.Height:=350;
ActiveForm.Position:=poDesktopCenter;
ActiveForm.Show; ActiveForm.Update;
Application.CreateForm(TMainForm,MainForm);
ActiveForm.Hide;
ActiveForm.Free; Application.Run;
end.