0

我有一个项目（Delphi 10 Seattle，win32），其中包含许多菜单和这些菜单中的许多项目。有些菜单项是在设计时创建的，有些是在运行时创建的。

我要做的是在触发 OnClick 事件时记录有关 TMenuItem 的一些信息，例如名称/标题、时间戳等。

我可以简单地在分配给 TMenuItem OnClick 事件的每个函数的开头添加一个过程调用，但我想知道是否有更优雅的解决方案。

还要注意的是，我尝试过Embarcadero 的 AppAnalytics，但我发现它没有给我想要的信息或灵活性，而且价格相当昂贵。

编辑：我将添加更多信息，详细说明我考虑过的选项（我可能一开始就应该这样做）。

向我要记录的每个菜单项单击添加一个简单的功能，这意味着要为很多功能执行此操作，并且必须将其添加到添加的每个新菜单项中。

procedure TSomeForm.SomeMenuItem1Click(Sender: TObject);
var
    item : TMenuItem;
begin
    item := Sender as TMenuItem;
    LogMenuItem(item);  // Simple log function added to the start of each menuitem click
end;

通过“更优雅的解决方案”，我的意思是可以添加一个“挂钩”，以便所有 TMenuItem OnClick 事件在调用分配给 OnClick 事件的过程之前触发另一个过程（它将执行日志记录）。

或者我考虑的另一个选项是创建一个继承自 TMenuItem 的类，该类将覆盖 TMenuItem.Click 并在生成 OnClick 事件之前进行日志记录。但是后来我不知道如果没有大量工作重新制作菜单，这将如何用于设计时菜单项。

4

2 回答 2

2

使用动作来实现这一点要容易得多。这样做的好处是您将获得由 UI 元素而非菜单（例如工具栏、按钮等）调用的操作。

根据您的喜好使用操作列表或操作管理器。例如，对于动作列表，动作列表对象具有OnExecute在执行任何动作时触发的事件。您可以侦听该事件并记录正在执行的操作的详细信息。

于 2015-12-04T08:47:02.333 回答
2

我绝对同意行动是要走的路，但为了完整起见，以及那些您想使用旧式菜单快速调试应用程序的情况，这里有一个可以与菜单项一起使用的单元。如果菜单项具有链接到它们的操作，它甚至可以工作，但它不适用于任何其他具有类似操作的控件TActionMainMenuBar。所有调试代码都在这个单元中，以使您的正常代码保持整洁。只需将单元添加到 uses 子句并StartMenuLogging使用任何适用的组件调用，例如菜单组件、表单组件甚至Application！它下面的树中的任何菜单项都将被钩住。因此，您可以在生产代码中仅使用这两行来调试所有形式的所有菜单点击。您可以使用StopMenuLogging停止，但它是可选的。警告: 这个单元没有经过正确的测试——我拿了一个我写的旧调试单元并为此清理了它，只是进行了表面测试。

unit LogMenuClicks;


interface

uses
  Classes;

procedure StartMenuLogging(AComponent: TComponent);
procedure StopMenuLogging(AComponent: TComponent);
procedure StopAllMenuLogging;


implementation

uses
  SysUtils,
  Menus;


type
  PLoggedItem = ^TLoggedItem;
  TLoggedItem = record
    Item: TMenuItem;
    OldClickEvent: TNotifyEvent;
  end;

  TLogManager = class(TComponent)
  private
    FList: TList;
    FLog: TFileStream;

    procedure Delete(Index: Integer);
    function FindControl(AItem: TMenuItem): Integer;
    procedure LogClick(Sender: TObject);
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

    procedure AddControl(AItem: TMenuItem);
    procedure RemoveControl(AItem: TMenuItem);
  end;

  var
    LogMan: TLogManager = nil;

{ TLogManager }

constructor TLogManager.Create(AOwner: TComponent);
begin
  inherited;

  FLog := TFileStream.Create(ChangeFileExt(ParamStr(0), '.log'), fmCreate or fmShareDenyWrite);
  FList := TList.Create;
end;

destructor TLogManager.Destroy;
var
  i: Integer;
begin
  i := FList.Count - 1;
  while i >= 0 do
    Delete(i);
  FList.Free;

  FLog.Free;

  inherited;
end;

procedure TLogManager.Notification(AComponent: TComponent; Operation: TOperation);
begin
  if Operation = opRemove then
    RemoveControl(TMenuItem(AComponent));

  inherited;
end;

procedure TLogManager.Delete(Index: Integer);
var
  li: PLoggedItem;
begin
  li := FList[Index];

  with li^ do
  begin
    Item.RemoveFreeNotification(Self);
    Item.OnClick := OldClickEvent;
  end;

  Dispose(li);
  FList.Delete(Index);
end;

function TLogManager.FindControl(AItem: TMenuItem): Integer;
begin
  Result := FList.Count - 1;
  while (Result >= 0) and (PLoggedItem(FList[Result]).Item <> AItem) do
    Dec(Result);
end;

procedure TLogManager.AddControl(AItem: TMenuItem);
var
  li: PLoggedItem;
begin
  if not Assigned(AItem) then
    Exit;

  if FindControl(AItem) >= 0 then
    Exit;

  New(li);
  li.Item := AItem;
  li.OldClickEvent := AItem.OnClick;
  AItem.OnClick := LogClick;
  FList.Add(li);

  AItem.FreeNotification(Self);
end;

procedure TLogManager.RemoveControl(AItem: TMenuItem);
var
  i: Integer;
begin
  if Assigned(AItem) then
  begin
    i := FindControl(AItem);
    if i >= 0 then
      Delete(i);
  end;
end;

procedure TLogManager.LogClick(Sender: TObject);
var
  s: string;
begin
  s := Format('%s: %s' + sLineBreak, [TComponent(Sender).Name, FormatDateTime('', Now)]);
  FLog.WriteBuffer(s[1], Length(s));
  PLoggedItem(FList[FindControl(TMenuItem(Sender))]).OldClickEvent(Sender);
end;


procedure StartMenuLogging(AComponent: TComponent);

  procedure CheckControls(Comp: TComponent);
  var
    i: Integer;
  begin
    if Comp is TMenuItem then
      LogMan.AddControl(TMenuItem(Comp))
    else
      for i := 0 to Comp.ComponentCount - 1 do
        CheckControls(Comp.Components[i]);
  end;

begin
  if not Assigned(LogMan) then
    LogMan := TLogManager.Create(nil);

  CheckControls(AComponent);
end;

procedure StopMenuLogging(AComponent: TComponent);

  procedure CheckControls(Comp: TComponent);
  var
    i: Integer;
  begin
    if Comp is TMenuItem then
      LogMan.RemoveControl(TMenuItem(Comp))
    else
      for i := 0 to Comp.ComponentCount - 1 do
        CheckControls(Comp.Components[i]);
  end;

begin
  if Assigned(LogMan) then
    CheckControls(AComponent);
end;

procedure StopAllMenuLogging;
begin
  LogMan.Free;
end;


initialization

finalization
  if Assigned(LogMan) then
     LogMan.Free;

end.
于 2015-12-04T14:01:08.147 回答