我有一个小应用程序,大多数时候在启动按钮后面有一个动作,应该从命令行参数/ 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;