创建一个弹出时不会立即得到焦点的窗口

这样创建的窗口除非用户主动点击，否则不会获得焦点。

  TForm1 = class(TForm)
  private
  protected
    procedure SetZOrder(TopMost: Boolean); override;
    procedure CMShowingchanged(var Message: TMessage);  message CM_SHOWINGCHANGED;
  public
  end;

procedure TForm1.CMShowingchanged(var Message: TMessage);
begin
  if not Visible
    then inherited
    else ShowWindow(Handle, SW_SHOWNOACTIVATE);
end;

procedure TForm1.SetZOrder(TopMost: Boolean);
begin
//  inherited;
end;