使用Firemokey在我的主窗体上如何处理OnMouseDown事件?

要使窗体在活动控件之前看到击键,需要在窗体对象检查器中设置KeyPreview属性。

Form1.KeyPreview := True;

这里接受的答案中有一个实质性的解释: How does Delphi's KeyPreview work?

关于你的鼠标查询,如果你没有在那里做任何事情,你怎么知道它不起作用?

将此代码放入您的表单OnMouseDown事件中;

PROCEDURE TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
BEGIN
  CASE Button OF
    mbLeft:   showmessage('Left Mouse Button!');
    mbRight:  showmessage('Right Mouse Button!');
    mbMiddle: showmessage('Middle Mouse Button!');
  END;
END;