Delphi10.3里Memo1的查找--替换---功能Action实现
添加一个ActionList1,添加 StandardAction里的Search里的Search里的SearchFind

假设Memo1的PopupMenu为PopupMenu1

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


Memo1的HideSelection一定要设为False

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

替换ReplaceDialog1功能类似实现

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

假设Memo1的PopupMenu为PopupMenu1

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


Memo1的HideSelection一定要设为False

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

替换ReplaceDialog1功能类似实现
