Implémenter F3 Trouver le suivant en utilisant TFindDialog

Question

J'ai implémenté une recherche en utilisant TFindDialog sur mon formulaire. Tout fonctionne bien, sauf que je ne peux pas trouver un moyen d'imiter le comportement "F3 - Find Next" comme dans le Bloc-notes. Une fois que vous avez entré une chaîne de recherche, appuyez sur F3 pour trouver l'instance suivante sans ouvrir la boîte de dialogue de recherche.

Cordialement, Pieter.

Answer 1

Voici un croquis comment on pourrait le faire:

type 
    TForm1 = class(TForm) 
    FindDialog1: TFindDialog; 
    procedure FindDialog1Find(Sender: TObject); 
    procedure SearchFind1Execute(Sender: TObject); 
    procedure SearchFindNext1Execute(Sender: TObject); 
    private 
    FSearchText: string; 
    procedure Search; 
    end; 

et

procedure TForm1.Search; 
begin 
    // Do the real searching here... 
    MessageBox(Handle, PChar('Looking for "' + FSearchText + '".'), nil, 0); 
end; 

procedure TForm1.SearchFind1Execute(Sender: TObject); 
begin 
    // Triggered by Ctrl-F 
    FindDialog1.FindText := FSearchText; 
    FindDialog1.Execute; 
end; 

procedure TForm1.SearchFindNext1Execute(Sender: TObject); 
begin 
    // Triggered by F3 
    if FSearchText = '' then 
    SearchFind1.Execute 
    else 
    Search; 
end; 

procedure TForm1.FindDialog1Find(Sender: TObject); 
begin 
    // Triggered by button click in FindDialog1 
    FSearchText := FindDialog1.FindText; 
    Search; 
end; 

Answer 2

Alternativaly vous pouvez essayer les actions standard TSearchFind/TSearchFindNext. Cependant je ne les ai pas essayés moi-même, donc je ne peux pas dire comment ils fonctionnent bien dans la pratique.