Delphi - Catch all action.onexecute da un'applicazione

Question

Ho una grande applicazione con centinaia di TActions. Ognuno di essi viene utilizzato e implementa diverse funzionalità necessarie.

È possibile prendere (agganciare) tutte le TAction.OnExecute da un'applicazione? C'è un messaggio di Windows che posso collegare in modo da poter registrare il nome dell'azione che è stato eseguito?

Answer 1

È sufficiente aggiungere un oggetto TApplicationEvents e gestire l'evento OnActionExecute. Il gestore eventi viene passato l'istanza Action e così può facilmente ottenere il nome dell'azione.

L'evento OnActionExecute si attiva prima che si verifichi l'evento OnExecute. È anche possibile interrompere l'attivazione dell'evento OnExecute impostando il parametro Handled su True nel gestore di eventi OnActionExecute.

Answer 2

in base alla risposta di David Ho fatto un piccolo esempio:

program Project1; 

uses 
    ExceptionLog, 
    Forms, 
    Unit2 in 'Unit2.pas' {Form2}, 
    AppEvnts, 
    Classes, 
    Windows, 
    SysUtils; 

{$R *.res} 

type TAppEventsHack = class 
    procedure onAppEvtExec(Action:TBasicAction;var Handled:Boolean); 
end; 

var aEvHack : TAppEventsHack; 
    aAppEvents : TApplicationEvents; 

{ TAppEventsHack } 

procedure TAppEventsHack.onAppEvtExec(Action: TBasicAction; 
    var Handled: Boolean); 
begin 
    OutputDebugString(PAnsiChar(Action.Name)); 
    Handled := False; 
end; 

begin 
    Application.Initialize; 
try 
    aEvHack := TAppEventsHack.Create; 
    aAppEvents := TApplicationEvents.Create(nil); 
    aAppEvents.OnActionExecute := aEvHack.onAppEvtExec; 

    Application.CreateForm(TForm2, Form2); 
    Application.Run; 
finally 
    freeandnil(aEvHack); 
    freeandnil(aAppEvents); 
end; 
end.