Delphi:显示窗口而不激活

Question

我很难在不失去焦点的情况下在主窗体上方显示第二个窗体。

我已尝试ShowWindow(second.handle, SW_SHOWNOACTIVATE)，但主窗体失去焦点。如果我在第二个窗口上设置 Visible := false ，则调用 ShowWindow 不会激活第二个窗体，但显示时窗口为空...

有人有好的食谱吗？

更新:我想做的是在给定事件中显​​示通知窗口。主窗体在任何时候都不能失去焦点，这一点至关重要。

Answer 1

你的代码肯定有问题。

我测试了这段代码，它有效:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowWindow(Form2.Handle, SW_SHOWNOACTIVATE);
  Form2.Visible := True;
end;

小心使用Visible，而不是Show!否则它将覆盖 SW_SHOWNOACTIVATE。