Difference between revisions of "TFindDialog/ru"
From Free Pascal wiki
Jump to navigationJump to searchm (Fixed syntax highlighting) |
|||
(One intermediate revision by one other user not shown) | |||
Line 8: | Line 8: | ||
== Использование == | == Использование == | ||
− | <syntaxhighlight> | + | |
+ | <syntaxhighlight lang=pascal> | ||
procedure TMyForm.Button1Click(Sender: TObject); | procedure TMyForm.Button1Click(Sender: TObject); | ||
begin | begin | ||
Line 31: | Line 32: | ||
== См. также == | == См. также == | ||
+ | |||
* [[doc:lcl/dialogs/tfinddialog.html|TFindDialog doc]] | * [[doc:lcl/dialogs/tfinddialog.html|TFindDialog doc]] | ||
* [[TReplaceDialog/ru|TReplaceDialog]] | * [[TReplaceDialog/ru|TReplaceDialog]] | ||
{{LCL Components/ru}} | {{LCL Components/ru}} | ||
− | |||
− | |||
− | |||
− |
Latest revision as of 05:55, 1 March 2020
│
English (en) │
suomi (fi) │
français (fr) │
русский (ru) │
中文(中国大陆) (zh_CN) │
TFindDialog этот компонент помогает в поиске информации. Он расположен на вкладке Dialogs палитры компонентов.
Для вызова FindDialog, используйте функцию Execute(). Используйте событие OnFind, что бы произвести поиск.
Использование
procedure TMyForm.Button1Click(Sender: TObject);
begin
FindDialog1.Execute();
end;
procedure TMyForm.FindDialog1Find(Sender: TObject);
var
k: integer;
begin
with Sender as TFindDialog do begin
k := Pos( FindText, Memo1.Lines.Text );
if k>0 then begin
Memo1.Selstart := k;
Memo1.SelLength := length( FindText );
end else
Beep();
end;
end;
См. также