TFindDialog/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) │
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;
См. также