Discussion :

[nn2009]

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

[Fenix01]

La propriété ReadOnly ne ferait pas l'affaire ?

[peter27x]

La propriété ReadOnly ne ferait pas l'affaire ?

Et non apparemment il veut qu'on puisse taper dedans, mais pas faire "coller" (comme pour une zone de confirmation de mot de passe par ex.).

[peter27x]

Un début de solution:

http://delphi.about.com/od/delphitip...ble_ctrl_v.htm

[nn2009]

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

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;

information complémentaire
//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

[Droïde Système7]

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/

@+

[nn2009]

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

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;

maintenant il te reste seulement de combiner entre le 1er code (OnMouseDown)et le second code (onkeyDown) du composant Tedit

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
@+

[Droïde Système7]

Je regarde...

En attendant :

et j'aimerai bien savoir si quelqu'un trouve une erreure dans mon code, ça m'aide à me developper encore plus.

Oui place ce code sous balise [code] avant qu'un modérateur le fasse à ta place.

Merci pour lui

[Droïde Système7]

En effet, je ne peux pas prendre ton code par défaut, bravo

Ni au clic droite, ni au Ctrl +...

@+

[mick605]

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

[nn2009]

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

[Fenix01]

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

[Droïde Système7]

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

Passe tom message en mode "Editon", ensuite regarde en haut tout à droite, tu verras un bouton avec dessus ce signe #

Bref, tu sélectionnes ton code et ensuite tu clics sur ce bouton "code", voili, voilà.

[nn2009]

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)

[Syntaxe error]

avec du texte utilise QUOTE

merci mes ami(e)s je crois que j'ai compris la leçon

avec le code

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;