Delphi - Bắt tất cả action.onexecute từ một ứng dụng

Question

Tôi có một ứng dụng lớn với hàng trăm TActions. Mỗi người trong số họ được sử dụng và thực hiện các chức năng khác nhau cần thiết.

Có thể bắt (móc) tất cả TAction.OnExecute từ một ứng dụng? Có bất kỳ cửa sổ tin nhắn mà tôi có thể móc để tôi có thể đăng nhập tên hành động được thực hiện?

Answer 1

Bạn chỉ cần thêm đối tượng TApplicationEvents và xử lý sự kiện OnActionExecute. Trình xử lý sự kiện được thông qua phiên bản Action và do đó có thể dễ dàng có được tên của hành động.

Sự kiện OnActionExecute sẽ kích hoạt trước khi xảy ra sự kiện OnExecute sự kiện. Bạn thậm chí có thể ngăn sự kiện OnExecute của hành động kích hoạt bằng cách đặt tham số Handled thành True trong trình xử lý sự kiện OnActionExecute của bạn.

Answer 2

Dựa trên câu trả lời của David Tôi đã thực hiện một ví dụ nhỏ:

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.