Delphi10.3里Memo1的查找--替换---功能Action实现

添加一个ActionList1,添加 StandardAction里的Search里的Search里的SearchFind

 

 假设Memo1的PopupMenu为PopupMenu1

 在里的一个新建空白菜单设置为SearchFind1

Memo1的HideSelection一定要设为False

 按下Ctrl+F弹出查找对话窗口

 替换ReplaceDialog1功能类似实现