[11.2] Bon usage de TSearchFind

Bonjour,

j’ai mis dans mon ActionList, l’action prédéfini TSearchFind, et je l’ai relié à un item de mon menu principal.

Ma question existentielle est comment, je relie cette action à l’un de mes TMemo pour qu’il fasse la recherche, j’ai eu beau chercher, j’ai rien trouvé de clair.

Auriez-vous une idée pour résoudre mon souci ?

Je vous remercie d’avances de vos retours.

PS: Il me manque beaucoup les exemples efficaces proposé dans l’aide des versions jusqu’à Delphi 7 !

D'apres ce que je sache il faut intercepter ExecuteAction et vérifier les demandes d’exécution des actions

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

type TMemo= class(StdCtrls.TMemo) protected function ExecuteAction(Action: TBasicAction): boolean;override; end;   ...   implementation     function TMemo.ExecuteAction(Action: TBasicAction): boolean; begin if Action is TSearchFind then begin Showmessage('Demande de recherche'); Result := True end else Result := inherited ExecuteAction(Action); end;

---