Difference between revisions of "TFindDialog/ru"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{TFindDialog}} '''TFindDialog''' Image:tfinddialog.png этот компонент помогает в поиске информации. Он расположен на...") |
|||
Line 1: | Line 1: | ||
{{TFindDialog}} | {{TFindDialog}} | ||
− | '''TFindDialog''' [[Image:tfinddialog.png]] этот компонент помогает в поиске информации. Он расположен на вкладке [[Dialogs tab|Dialogs]] [[Component Palette|палитры компонентов]]. | + | '''TFindDialog''' [[Image:tfinddialog.png]] этот компонент помогает в поиске информации. Он расположен на вкладке [[Dialogs tab/ru|Dialogs]] [[Component Palette|палитры компонентов]]. |
Для вызова FindDialog, используйте функцию <tt>Execute()</tt>. Используйте событие <tt>OnFind</tt>, что бы произвести поиск. | Для вызова FindDialog, используйте функцию <tt>Execute()</tt>. Используйте событие <tt>OnFind</tt>, что бы произвести поиск. |
Revision as of 13:13, 28 December 2016
│
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;
См. также