又是delphi问题

Question

MessageDlg('欢迎使用学生交费管理系统!',mtInformation,[mbok,mbyes],0)
怎样编写代码,让这个窗体出来3秒钟后自动取消,然后就自动进入mainform主窗体呢??
在此谢谢了!

Answer 1

function MessageBoxTimeOut(hWnd: HWND; lpText: PChar; lpCaption: PChar;
  uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall;external user32 name 'MessageBoxTimeoutA';用这个函数

Answer 2

估計是想做一logo，用message費事一些，可以做一‘form’先加載它，延時sleep（3000）后再show出mainform

Answer 3

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