delphi – OnShow事件之后自动启动动作的最佳方式是什么？

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;