Difference between revisions of "TReplaceDialog/ru"
From Lazarus wiki
Jump to navigationJump to searchm |
m (Fixed syntax highlighting) |
||
Line 6: | Line 6: | ||
== Пример == | == Пример == | ||
+ | |||
Пример использования [[TReplaceDialog/ru|TReplaceDialog]] с [[TSynEdit]]. Событие <tt>OnReplace</tt> возникает при нажатии кнопки "Заменить" в диалоговом окне. | Пример использования [[TReplaceDialog/ru|TReplaceDialog]] с [[TSynEdit]]. Событие <tt>OnReplace</tt> возникает при нажатии кнопки "Заменить" в диалоговом окне. | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
procedure TMyForm.Button1Click(Sender: TObject); | procedure TMyForm.Button1Click(Sender: TObject); | ||
begin | begin | ||
Line 34: | Line 35: | ||
== См. также == | == См. также == | ||
+ | |||
* [[doc:lcl/dialogs/treplacedialog.html|TReplaceDialog doc]] | * [[doc:lcl/dialogs/treplacedialog.html|TReplaceDialog doc]] | ||
* [[TFindDialog/ru|TFindDialog]] | * [[TFindDialog/ru|TFindDialog]] | ||
{{LCL Components/ru}} | {{LCL Components/ru}} |
Latest revision as of 13:06, 1 March 2020
│
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;
См. также