如何让FindDialog保持最佳状态(Delphi)？

FindDialog.Execute;

FindDialog1.Execute();
PrintDialog1.Execute();
ReplaceDialog1.Execute();
FontDialog1.Execute();

Application.NormalizeTopMosts;
  FindDialog.Execute();
  Application.RestoreTopMosts;

查看VCL代码,查找对话框保持最佳状态的唯一可能方式是,在调用“执行”时,已经存在最顶层的窗口.这是它的编码方式,对话框由’TRedirectorWindow’拥有,后者在应用程序中以z顺序由顶部窗口拥有.如果这个“顶部窗口”是最顶层的窗口,那么查找对话框也是.

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TForm;
begin
  f := TForm.CreateNew(Self);
  f.FormStyle := fsStayOnTop;
  f.Show;
  FindDialog1.Execute;
end;

要么,

procedure TForm1.Button1Click(Sender: TObject);
begin
  FormStyle := fsStayOnTop;
  FindDialog1.Execute;
  FormStyle := fsNormal;
end;

上面的示例将创建一个最顶层的查找对话框.但是一个保持顶级的形式可能不会被忽视,所以我想这不会是你的问题的根源.

在任何情况下,它或者你是以某种方式通过其他代码片段改变对话框上的样式.

顺便说一句,不要费心测试将各种句柄传递给FindDialog1.Execute(),它不会有效果,请看我对你的问题的评论.

编辑：

这个怎么样：

procedure TForm1.Button4Click(Sender: TObject);
var
  f: TForm;
begin
  f := TForm.CreateNew(Self);
  f.FormStyle := fsStayOnTop;
  f.Show;
  f.Hide;
  FindDialog1.Execute;
end;

关键是,一个窗口不一定要被EnumThreadWindows枚举.所以任何现有的stay-on-top表单都可能导致find对话框出现这种行为.

更好的测试和看到比猜测.在启动“查找”对话框之前运行以下测试.这包含逻辑’dialogs.pas’执行以查找对话框作为基础,并且如果对话框将最顶层,则会引发异常.

function EnumThreadWndProc(hwnd: HWND; var lParam: LPARAM): Bool; stdcall;
var
  Window: TWinControl;
begin
  Result := True;
  Window := FindControl(hwnd);
  if Assigned(Window) and (Window is TForm) then begin
    Result := False;
    lParam := Longint(Window);
  end;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  OnTopForm: Longint;
begin
  OnTopForm := 0;
  EnumThreadWindows(GetCurrentThreadId,@EnumThreadWndProc,LPARAM(@OnTopForm));
//  if (OnTopForm <> 0) and (TForm(OnTopForm).FormStyle = fsStayOnTop) then
  if (OnTopForm <> 0) and (GetWindowLong(TForm(OnTopForm).Handle,GWL_EXSTYLE) and WS_EX_TOPMOST = WS_EX_TOPMOST) then
    raise Exception.Create('darn! got one: ' + TForm(OnTopForm).Name);
end;

另一个测试可能是在启动对话框之前调用应用程序的NormalizeTopMosts,但我知道在某些Delphi版本中,这种方法已被破坏而且无法完成其工作.