[范例] Firemonkey TForm 實現 OnMouseLeave 事件 (適用 Win & OS X)，onmouseleave

[范例] Firemonkey TForm 實現 OnMouseLeave 事件 (適用 Win & OS X)，onmouseleave

在 Firemonkey 的 TForm 並沒有提供 OnMouseLeave 的事件，不過可以透過 OnMouseMove 來達到相同效果，請見代碼：

uses  FMX.Consts;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
begin
  if (Shift = []) and (X = FormUseDefaultPosition) and (Y = FormUseDefaultPosition) then
  begin
    // ...做點什麼...
  end;
end;