Question

DELPHI 中怎么判断 FindDialog 点击的是 "替换" 按钮 还是 "全部替换" 按钮

Answer 1

如果用到 "替换" "全部替换" 按钮，建议使用 ReplaceDialog

判断方法如下：

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
if frReplace in ReplaceDialog1.Options then
begin
ShowMessage('frReplace');
end
else if frReplaceAll in ReplaceDialog1.Options then
ShowMessage('frReplaceAll');
end;

Answer 2

测试 Options 属性

• frReplace：如果用户单击了“替换”按钮，就包含此元素。
• frReplaceAll：如果用户单击了“全部替换”按钮，就包含此元素。