TReplaceDialog/ru
From Lazarus wiki
Jump to navigationJump to searchThe printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
│
English (en) │
français (fr) │
русский (ru) │
中文(中国大陆) (zh_CN) │
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;
См. также