TFindDialog/fr

│ English (en) │ suomi (fi) │ français (fr) │ русский (ru) │ 中文（中国大陆） (zh_CN) │

TFindDialog est un composant non visuel qui donne accès à une boîte de dialogue qui assiste dans la sélection d'un texte à rechercher. Le composant TFindDialog est disponible depuis l'onglet Dialogs de la palette de composants. Pour activer un FindDialog, il suffit d'appeler sa méthode Execute(). Créez ensuite un gestionnaire pour l'événement OnFind pour réaliser le code de recherche.

Usage

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;

Voir aussi

• Doc. TFindDialog
• TReplaceDialog