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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part int ShowCursor(BOOL bShow);
Inutile de placer ce composant : tu obtiens la même chose par :Envoyé par Nono40
Nb : j'ai essayé avec le message WM_NCHITTEST mais sans résultat.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 }
A suivre....
Je suis d'accord, mais il est plus rapide de placer un TApplicationEvents. Le résultat est le même.Envoyé par delphi-fan
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.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager