Lazarus - TReplaceDialog - 如何確定'替換'或'全部替換'被點擊

Question

我試圖在Lazarus項目中添加搜索和替換功能到TSynEdit組件，並且我正在使用TSynEdit.SearchReplace(),TFindDialog和TReplaceDialog。

所有似乎正在工作，因爲我需要它，除了我無法找到一種方法來確定替換對話框上單擊「替換」或「全部替換」按鈕。

我已經編寫了OnFind事件和OnReplace事件的代碼，但似乎沒有發生OnReplaceAll事件。

查看TReplaceDialog項目的自動幫助彈出窗口我看不到任何屬性或其他允許我確定按下哪個按鈕的屬性。

任何人都可以指向正確的方向嗎？

感謝，

FM

Answer 1

在OnReplace情況下，檢查，看看是否frReplaceAll在Options：

procedure TForm1.ReplaceDialog1Replace(Sender: TObject); 
begin 
    with Sender as TReplaceDialog do 
    begin 
    if frReplace in Options then 
    DoReplace(ReplaceDialog1.FindText, ReplaceDialog1.ReplaceText) 
    else if frReplaceAll in Options then 
    DoReplaceAll(ReplaceDialog1.FindText, ReplaceDialog1.ReplaceText); 
    end; 
end; 

這個例子是從Delphi XE 4 documentation，但對話應該有相同的基本實施細節。