delphi – OnShow事件之后自动启动动作的最佳方式是什么?
发布时间:2020-12-15 04:28:53 所属栏目:大数据 来源:网络整理
导读:我有一个小应用程序,大多数时候在启动按钮后面有一个动作,应该从命令行参数/ AUTORUN触发. 如果该参数丢失,用户也可以手动按下该参数. 我的问题是我应该在哪里放置这个检查命令行,所以当给予GUI仍然更新.目前的解决方案是这样,但在操作完成之前,GUI不会更新.
我有一个小应用程序,大多数时候在启动按钮后面有一个动作,应该从命令行参数/ AUTORUN触发.
如果该参数丢失,用户也可以手动按下该参数. 我的问题是我应该在哪里放置这个检查命令行,所以当给予GUI仍然更新.目前的解决方案是这样,但在操作完成之前,GUI不会更新. procedure TfrmMainForm.FormShow(Sender: TObject); begin if FindCmdLineSwitch('AUTORUN') then btnStart.Click; end; 解决方法
发布自己的OnShow事件处理程序的消息.一旦应用程序开始服务其消息队列,这将被处理.只有当应用程序准备好接收输入时才会发生.这符合您对我的理解.
const WM_STARTUP = WM_USER; .... procedure TfrmMainForm.FormShow(Sender: TObject); begin PostMessage(Handle,WM_STARTUP,0); OnShow := nil;//only ever post the message once end; 添加一个消息处理程序来处理消息: procedure WMStartup(var Msg: TMessage); message WM_STARTUP; 你会这样实现: procedure TfrmMainForm.WMStartup(var Msg: TMessage); begin inherited; if FindCmdLineSwitch('AUTORUN') then btnStart.Click; end; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |