Сделать 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.