TFindDialog/ru

│ 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;

См. также

• TFindDialog doc
• TReplaceDialog