Discussion :

[Higgins]

Bonjour,

J'aurais besoin de connaitre la position du cursor de la souris. Mouse.CursorPos que j'utilisais dans la VCL semble ne pas exister sur FMX.
En furetant sur le web, j'ai trouvé Platform.GetMousePos; mais à priori ça n'existe pas: FMX.Platform ne contient que des déclarations d'interfaces.
Quelqu'un sait-il comment récupérer ces coordonnées?

[ShaiLeTroll]

GetMousePos

essaye (en pur théorie du is et as avec des interfaces avec guid)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if (FMX.Platform is IFMXMouseService) then
 (*TPointF*) MyPt := (FMX.Platform as IFMXMouseService).GetMousePos();

ou encore en XE3, issu du code de TCommonCustomForm.MouseWheel dans FMX.Forms.pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
var
  MousePos: TPointF;
  MouseService: IFMXMouseService;
begin
    if TPlatformServices.Current.SupportsPlatformService(IFMXMouseService, IInterface(MouseService)) then
    begin
      MousePos := MouseService.GetMousePos;

Bigre, le code de FMX est horriblement tordu avec ses interfaces et supports,
euh, mais on dirait le code de mon gestionnaire de périphérique avec des Supports et des centaines d'interfaces
Aurais-je l'esprit tordu ?

[Higgins]

Merci, j'y suis arrivé en utilisant ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
var
  MousePos: TPointF;
  MouseService: IFMXMouseService;
begin
    if TPlatformServices.Current.SupportsPlatformService(IFMXMouseService, IInterface(MouseService)) then
    begin
      MousePos := MouseService.GetMousePos;

Bigre, le code de FMX est horriblement tordu avec ses interfaces et supports,

+1