bonjour
voila je voudrais ne pas autoriser l'utilisateur à coller du text en utilisant le bouton droit de la sourie ou bien par le raccourcie clavier ctrl+v sur un Edit
merci d'avance
bonjour
voila je voudrais ne pas autoriser l'utilisateur à coller du text en utilisant le bouton droit de la sourie ou bien par le raccourcie clavier ctrl+v sur un Edit
merci d'avance
Un début de solution:
http://delphi.about.com/od/delphitip...ble_ctrl_v.htm
bonjour tout le monde
merci pour votre aide je penses avoir trouver la bonne solution, alors je lma partage avec vous
dans l'evebement OnMouseDown taper ce code
information complémentaire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin //si le boutton droit de la sourie est enfoncé if ord(button)= 1 then showmessage ('Right Button Deactivated'); end;
//Numéro du boutton guauche de la sourie = 0
//Numéro du boutton droit de la sourie = 1
//Numéro de Roulette enfoncée de la sourie = 2
bonne chance mes ami(e)s
Bonjour,
pas aussi simple que ça !
Avec le clic droite ok, mais si tu :
1. Colle un texte dans le presse-papier
2. Place ton curseur dans cet Edit
3. Effectue un Ctrl + V
Solution complète ici :
http://www.developpez.net/forums/d83...-coller-tedit/
@+
bonjour
c vrai tu as raison (Droïde Système7) sauf que: voila un code plus simple pour interdire le coller (Ctrl+V) sur un tedit
maintenant il te reste seulement de combiner entre le 1er code (OnMouseDown)et le second code (onkeyDown) du composant Tedit
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if ((ssCtrl in Shift) AND (Key = ord('V'))) then { V:copie --- C:coller....} begin if Clipboard.HasFormat(CF_TEXT) then ClipBoard.Clear; showmessage('la fonction (Ctrl+V) est desactivée'); Key := 0; end;
je l'ai fait et sa marche bien.
et j'aimerai bien savoir si quelqu'un trouve une erreure dans mon code, ça m'aide à me developper encore plus.
Merci les amis
@+
Je regarde...
En attendant :
Oui place ce code sous balise [code] avant qu'un modérateur le fasse à ta place.et j'aimerai bien savoir si quelqu'un trouve une erreure dans mon code, ça m'aide à me developper encore plus.
Merci pour lui
En effet, je ne peux pas prendre ton code par défaut, bravo
Ni au clic droite, ni au Ctrl +...
@+
Allez, je viens mettre un peu d'embrouille ... Ctrl V OK, clic droit OK ... mais il reste une facon de coller du code, peut etre moins connue et moins répandue ...
Sur les ordis portables, il existe une touche qui fait apparaitre le popup du clic droit ... Je ne sais pas, par contre, si ca déclenche comme si il y avait clic droit ... Voila, bonne chance ...
Pourquoi ne pas simplement intercepter le message windows a l'origine du coller ? (Je sais pas si ca marche comme ca ...)
Resalut Droïde Système7
que veut tu dire par mettre mon code entre balise [code] ! ?
je l'ai jamais fait et je ne sais pas ce que sais ???
si tu as le temps pour m'expliquer alors dit moi comment faire et pourquoi faire?
Merci
C'est pour qu'on voit bien la différence entre du code et un message.
Quand tu écris ton message ta un icone qui ressemble à ca #
C'est pour écrire du code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part comme ca
Code : Sélectionner tout - Visualiser dans une fenêtre à part merci mes ami(e)s je crois que j'ai compris la leçon
maintenant j'ai un une autre question, comment peut on faire un menu contextuel avec le composant PopuMenu en utilisant le bouton droit de la souris ou bien en appuyant sur une combinaison de touche (Ctrl+M)
avec du texte utilise QUOTE
avec le codemerci mes ami(e)s je crois que j'ai compris la leçon
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if ((ssCtrl in Shift) AND (Key = ord('V'))) then { V:copie --- C:coller....} begin if Clipboard.HasFormat(CF_TEXT) then ClipBoard.Clear; showmessage('la fonction (Ctrl+V) est desactivée'); Key := 0; end;
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