Bonjour,
J'ai cette ligne la dans un composant VCL, et je voudrais la convertir sous Firemonkey:
Voici le contenue de la procédure appelé par le message:
Code : Sélectionner tout - Visualiser dans une fenêtre à part procedure CMHintShow(var Message: TCMHintShow); message CM_HINTSHOW;
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) ?
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;
Partager