有很多时候,我们都需要在一个程序创建时做一些事情,但是如果在创建的时候处理很多事情的话,会导致窗体启动很慢,像delphi提供了FormCreate和FormShow的方法,是否我们可以将要处理的事情移动到FormShow就可以了,但是,事实上,如果FormShow中的事情没有执行完成的话,界面是不会显示出来的,这样也是达不到我们想要的效果的,那如果我们想要窗体先创建并显示出来后在处理比较耗时的事情或者让用户体验感觉更好,该如何处理呢?
此时可以使用PostMessage的方法来实现要求。
使用消息的方法,在FormCreate或者FormShow的时候,发出一个消息,windows会将这个消息放入消息循环中,当创建完成并显示后会执行这个消息所指向的函数。
在delphi2007中测试通过
示例程序:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
const
UM_CHECKFIRSTRUN = WM_USER + 100;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure UmCheckFirstRun(var Message: TMessage); message UM_CHECKFIRSTRUN;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
PostMessage(Handle, UM_CHECKFIRSTRUN, 0, 0);
end;
procedure TForm1.UmCheckFirstRun(var Message: TMessage);
begin
sleep(10000);
ShowMessage('123');
end;
end.
会看到此程序先显示出From然后在10秒钟后showmessage。