制作 TFindDialog 和 TReplaceDialog 模态框？

Question

我在我的应用程序中使用一些 TFindDialog 和 TReplace 对话框。

如何以模式方式显示对话框，就像“打开”和“保存”对话框一样？当“查找和替换”对话框打开时，我不希望任何用户能够选择应用程序中的任何控件。

Answer 1

对于单窗口应用程序的简单情况，我可能会尝试这样的方法：

procedure TYourForm.FindButtonClick(Sender: TObject);
begin
  Self.Enabled := False;
  FindDialog.Execute;
end;
...
procedure TYourForm.FindDialogClose(Sender: TObject);
begin
  Self.Enabled := True;
end;

也就是说，第一个方法是按钮的单击处理程序。第二个是 FindDialog.OnClose 事件处理程序。

对于更复杂的情况，我可能会查看 TCustomForm.ShowModal 的源代码。