Discussion :

[miss-unknown]

Bonjour,
je souhaite activer les touches (ctrl+c)(ctrl+v) pour copier coller un texte d'un edit mais j'ai pas su comment le faire ! quelqu'un peut me guider s'il vous plait

merci d'avance

[SergioMaster]

Bonjour,

à ma souvenance (ce qu'un petit test m'a confirmé) , rien à faire , c'est le comportement par défaut du TEdit

[philnext]

C'est natif il me semble. Il se passe quoi si tu essaye avec une autre appli ?

[Gilbert Geyer]

Bonjour,

Si l'appui des touches (ctrl+c)(ctrl+v) pour copier coller un texte d'un edit ne fonctionne pas avec une appli cela résulte forcément du fait que sa procédure TForm1.MonEditKeyPress(Sender: TObject; var Key: Char)
contient une instruction du style if not (Key in [....]) then Key := #0 et dont le filtre ne laisse pas passer les (ctrl+c)(ctrl+v)

Par exemple les instructions suivantes :

Code :

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

1
2
3
4
5
...
if (Key = '.') or (Key = ',') then Key := #0;
if not (Key in [#3,#22,'0'..'9','-', Chr(VK_BACK), Chr(VK_DELETE)]) //#3 = Ctrl + C, #22 = Ctrl + V
then Key := #0;
...

Empêche de saisir dans l'edit des caractères non numériques ainsi que le point et la virgule tout en autorisant Ctrl+C et Ctrl+V : donc réservé aux edit's de saisie d'entiers signés.

A+.