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

**altahir007** · 17/10/2003, 13h45

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 :

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

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

**Bestiol** · 17/10/2003, 14h00

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 :

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

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;