Delphi 10.1 Firemonkey - 检测组件外部的鼠标单击

Question

如何检测组件外部的鼠标点击？我正在制作自定义日历，当单击带有显示日期的 TLabel 时 - TCalendar 就会出现。它正在发挥作用。但我想当鼠标位于组件外部并按下按钮时消失 TCalendar？在 VCL 中我可能会使用 WindowsMessages，但是有一个 Firemonkey，我也想在 iOS 上使用它。

BR

Answer 1

试试这个。它获取屏幕上的鼠标位置(Win、iOs、Android)。因此，您可以使用它来查找光标何时超出您的控制。对于 MouseDown 尝试在 Form 上使用 MouseDown。

function MousePos: TPointF;
var
  MouseService: IFMXMouseService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXMouseService, IInterface(MouseService)) then
    Exit(MouseService.GetMousePos);
  Result := PointF(0, 0);
end;