Discussion :

[mika]

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

[delphi-fan]

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

A+

[Smortex]

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...

[Nono40]

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;

[Lung]

Et ca ?

Code :

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

int ShowCursor(BOOL bShow);

[delphi-fan]

...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 :

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 }

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

[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.