Bonjour,

J'ai cette ligne la dans un composant VCL, et je voudrais la convertir sous Firemonkey:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
procedure CMHintShow(var Message: TCMHintShow); message CM_HINTSHOW;
Voici le contenue de la procédure appelé par le message:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
procedure TShowImages.CMHintShow(var Message: TCMHintShow);
var
  mp : TPoint;
begin
  inherited;
  if assigned(FOnHint) then
    begin
      mp := Mouse.CursorPos;
      mp := ScreenToClient(mp);
      FOnHint(Self, mp.X, mp.y, Message.HintInfo.HintStr);
    end;
end;
Avez-vous une idée sur comment je pourrait migrer ce bout de code pour que cela fonctionne pas que sous Windows (genre le Mac) ?