Discussion :

[der§en]

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 !

[Volid]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;