delphi - FireMonkey相当于Application.OnMessage？

Question

对于 Delphi Win32 (VCL)，我使用:

Application.OnMessage := MyAppMessage;

FireMonkey 中的等效项是什么？

我有一个例程，需要捕获应用程序中的所有键盘和鼠标事件(在所有事件表单控件上)并处理它们。

Answer 1

我不知道 FireMonkey 中是否有一种方法可以以与平台无关的方式在应用程序级别捕获鼠标和键盘事件。我认为从 Delphi XE 2 Update 2 开始，该功能尚未实现。

但是，默认情况下，FireMonkey 表单会先于控件获取所有 MouseDown 和 KeyDown 事件。

如果您只是重写表单上的 MouseDown 和 KeyDown 事件，您将完成同样的事情。

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override;
    procedure KeyDown(var Key: Word; var KeyChar: System.WideChar; Shift: TShiftState); override;
  end;

{ TForm1 }

procedure TForm1.KeyDown(var Key: Word; var KeyChar: System.WideChar;
  Shift: TShiftState);
begin
  // Do what you need to do here
  ShowMessage('Key Down');
  // Let it pass on to the form and control
  inherited;
end;

procedure TForm1.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Single);
begin
  // Do what you need to do here
  ShowMessage('Mouse Down');
  // Let it pass on to the form and control
  inherited;
end;

如果需要，您可以继续使用 MouseMove、MouseUp、MouseWheel、MouseLeave、KeyUp、DragEnter、DragOver、DragDrop 和 DragLeave。