TIERichEdit.OnCloseFindDialog

Declaration

property OnCloseFindDialog: TIEFindCloseEvent;

Description

Occurs when the Find or Replace dialog closes.

Example

procedure TForm1.IERichEdit1CloseFindDialog(Sender: TObject; Dialog: TFindDialog);
begin
  if IERichEdit1.CanFocus then
    IERichEdit1.SetFocus();
end;

---