delphi中的TFindDialog与TReplaceDialog控件的使用
一、打开查找或替换的对话框
if FindDialog1.Execute then
if ReplaceDialog1.Execute then
begin
end
ShowMessage(FindDialog1.FindText); //显示查找文本框的文本
ShowMessage(ReplaceDialog1.FindText); //显示替换框查找文本框的文本
ShowMessage(ReplaceDialog1.ReplaceText); //显示替换框替换为文本框的文本
常用事件
OnFind //你点吉了查找按钮时 procedure TForm1.ReplaceDialog1Find(Sender: TObject);
OnReplace //你点击了替换按钮时
也可使用ActionLIst控件实现这些功能，其功能更强大
更多示例见：
D:\SynologyDrive\Learn\Delphi语言\D11Pro\使用查找替换对话框对Memo内容进行查找替换
https://blog.csdn.net/weixin_30709809/article/details/96853618