[AppMessage] Comment empêcher un click de la souris ?

hello après recherche sur le forum, je ne trouve pas la solution à mon problème :

j'utilise la procedure AppMessage(var Msg: TMsg; var Handled: Boolean)
pour intercepteur les Messages de mon application & surtout ceux de la souris.

Comment modifier le Message pour qu'en sortant de la procedure AppMessage, on ai annulé le message souris par exemple ?

Code:

---

1 2 3 4 5 6

procedure TStart.AppMessage(var Msg: TMsg; var Handled: Boolean); //message de l'application begin if (Msg.message = WM_LBUTTONDOWN) then ??????;   end;

---

Merci d'avance :lol:

Si je ne me me trompe pas, le principe serait de modifier directement le paramètre Msg qui, comme tu l'as écrit, est déclaré avec "var"...

Ce code devrait donc fonctionner, en théorie :

Code:

---

1 2 3 4 5

procedure TStart.AppMessage(var Msg: TMsg; var Handled: Boolean); //message de l'application begin if (Msg.message = WM_LBUTTONDOWN) then Msg.Message := 0;   end;

---

Voilà... Arrêtez-moi si je dis une bétise !!

Bestiol.

je test pour voir, effectivement le message et modifiable :lol:

ça tourne impec merci