TReplaceDialog/ru
English · Français · Русский · 中文（中国）
TReplaceDialog 
компонент, позволяет найти и заменить текстовую информацию. Он расположен на вкладке Dialogs палитры компонентов.
Пример
Пример использования TReplaceDialog с TSynEdit. Событие OnReplace возникает при нажатии кнопки "Заменить" в диалоговом окне.
procedure TMyForm.Button1Click(Sender: TObject);
begin
ReplaceDialog1.Execute();
end;
procedure TMyForm.ReplaceDialog1Replace(Sender: TObject);
var
k: integer;
begin
with Sender as TReplaceDialog do begin
opt := [];
if frReplace in Options then
opt := [ssoReplace];
if frReplaceAll in Options then
opt := [ssoReplaceAll];
k := TSynEdit1.SearchReplaceEx( FindText, ReplaceText, opt, Position );
if k>=0 then
TSynEdit1.SetFocus()
else
Beep();
end;
end;См. также
From the Free Pascal wiki, page "TReplaceDialog/ru", as it stood on 2020-03-01 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.