窗口显示后执行一段程序(50分)

  • 主题发起人 主题发起人 foenix
  • 开始时间 开始时间
F

foenix

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在窗口显示后,出现显示一些提示信息后,执行一段程序代码,这一段代码应写在哪里?
 
你可以在Program中Application.Run之前加入以下代码:
MainForm.Show;
ShowMessage('Some Messages');

记得在uses中加入Dialogs单元。
 
如果是想在某个窗口出现之后运行一段程序,在ONACTIVE中写代码。
如果只想运行一次,自己解决吧。设置标志。
 
to Hjkng:你的方法只能在窗口显示前出现。
 
这个是一个使用rar解压缩控件进行解压缩的程序,
要求出现一个等待的提示窗口,
然后对一个rar压缩的文档进行解压缩到已指定的目录中,
解压缩完成后关闭窗口。

希望等待出口出现后,自动进行解压。
 
自己有控件还不好办吗?
form_msg.show;
rar1.run;
然后在rar1的finished事件中form_msg.close;
 
在onformshow事件中:
showmessage('你的消息’);
然后是你要执行的代码,也可以用一个独立的过程。
 
这些方法我试过都不行。
后来我用time控件解决的。
但我想应该有更简单的办法。
 

我以前好象也遇到过这个问题,好象是在窗口创建之后

PostMessage(Handle,CM_SHOWMYMSG,0,0);

然后再定义一个消息处理函数,也很麻烦
 
这不是很简单么, 显示消息的窗口Activate之后再执行解压,解压结束后通知显示消息窗口关闭
 
康夫、老屯:
能不能所得更详细点?
望不吝赐教。
 
多人接受答案了。
 
后退
顶部