我有一个小应用程序,大多数时候在启动按钮后面有一个动作,应该从命令行参数/ 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;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。