Désactivation de la souris

Y a t il un moyen de désactiver l'utilisation de la souris dans un programme

Je ne veux pas que les utilisateurs puissent se servir de la souris dans des fiches

Merci

Va voir ce lien :
http://www.delphipages.com/tips/thread.cfm?ID=100

A+

Y'a d'autres méthodes : Une API non référencée par microsoft (Mais un Ctrl + Alt + Suppr remet de l'ordre dans la chose) et une autre méthode passant par rundll, mais la souris ne peut pas être restauré.

Si tu est intéressé par une de ces méthodes, demande : j'essairai de retrouver...

Voici une solution non complète : elle désactive les boutons gauches et droits de la souris mais seulement sur ton application. Pour l'utiliser il faut placer un composant TapplicationEvents sur la fiche et ajouter le code suivant dans le OnMessage :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin If (msg.message = WM_LBUTTONDOWN ) Or (msg.message = WM_LBUTTONUP ) Or (msg.message = WM_LBUTTONDBLCLK ) Or (msg.message = WM_RBUTTONDOWN ) Or (msg.message = WM_RBUTTONUP ) Or (msg.message = WM_RBUTTONDBLCLK ) Then Begin ApplicationEvents1.CancelDispatch; Handled:=True; end; end;

---

Et ca ?

Code:

---

int ShowCursor(BOOL bShow);

---

:roll: :wink:

Citation:

---

Envoyé par Nono40

...Pour l'utiliser il faut placer un composant TapplicationEvents sur la fiche et ajouter le code suivant dans le OnMessage :

---

Inutile de placer ce composant : tu obtiens la même chose par :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage :=AppMessage; end; .... procedure TForm1.AppMessage(var Msg : TMsg; var bHandled : boolean ); begin if( Msg.Message = WM_LBUTTONDOWN) or ......... // autres messages cités dans le post de Nono then bHandled := true; end; {pour tous les autres messages,Handled conserve la valeur False } {les autres gestionnaires de messages peuvent ainsi répondre }

---

Nb : j'ai essayé avec le message WM_NCHITTEST mais sans résultat.
A suivre....

Citation:

---

Envoyé par delphi-fan

Citation:

---

Envoyé par Nono40

...Pour l'utiliser il faut placer un composant TapplicationEvents sur la fiche et ajouter le code suivant dans le OnMessage :

---

Inutile de placer ce composant : tu obtiens la même chose par :

---

Je suis d'accord, mais il est plus rapide de placer un TApplicationEvents. Le résultat est le même.

Par contre en message privé mika m'a signalé qu'il utilisait Delphi 3. Dans ce cas il faut utiliser la méthode décrite par Delphi-fan. Car le TApplicationEvents n'existe que depuis Delphi 5.