Controler un "copier/coller" dans un tedit

Soyez le premier à donner votre avis sur cette source.

Vue 12 852 fois - Téléchargée 1 164 fois

Description

Cette source fait suite à une question posée de manière récurrente sur le forum:
"Comment interdire un Copier/Coller sur un TEdit"
j'ai décidé de me pencher sur le problème ...

Je vous propose une solution réutilisable à volonté et sans installation de composant

Le code est très court et très simple à comprendre il se présente sous une unité nommée :
CustomCtrls.pas

Je ne voyais pas l'intérêt d'empêcher la copie, je ne l'ai donc pas inclue
mais je vous ai laissé un exemple en commentaire pour le TEdit dans CustomCtrls.pas

La méthode de surcharge est basée sur celle de Delphiprog à ceci près qu'il n'est pas utile
de re-déclarer le type en début d'unité principale

TRES IMPORTANT
Veillez toujours à ce que cette unité soit déclarée
après StdCtrls dans la clause Uses de votre MainForm ...
c'est la seule contrainte

Sur les propositions de F0xi et N_M_B (cf. Commentaires)
voici la nouvelle version, elle permet un controle plus étendue sur l'edit
mais surtout elle permet de controler le contenu du ClipBoard et de le modifier si besoin est
et le restitue à son état initiale en fin de procédure.

Ajout de deux contrôles sur messages : WM_GetText et WM_SetText
afin d'éviter tout "piratage" depuis une application externe.
Testé ok avec WinSpy

Source / Exemple :


All in Zip

Conclusion :


vos avis et commentaires sont les bien venus

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
44
Salut,
content que cela te plaise.
Oui tu peux la mettre en téléchargement à condition de préciser l'auteur, de la fournir complète et de me prévenir si il y a des changements (dans le code) ;)
@+
Messages postés
10
Date d'inscription
dimanche 19 septembre 2004
Statut
Membre
Dernière intervention
12 avril 2009

Salut est ce que je peut le maitre en telechargement sur mon site
car c'est vraiment du bon travail
www.softdevelope.com
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
44
@Florenth : Merci pour ton appréciation.
et oui eoAllowEdit ne sert plus à grand chose maintenant, au départ il permettait d'éviter l'édition du texte alors que ReadOnly était à False mais après la découverte du bug par N_M_B les choses ont changées. Mais pour l'instant je le laisse encore ... ça ne dérange pas plus que ça.

Sinon une mise à jour viens d'être faite : Elle permet le controle d'un copier/coller depuis une application externe ... Testé ok avec WinSpy

Dites moi si ça fonctionne aussi chez vous ?
et ce que vous en pensez
@+
Cirec
Je viens de tomber dessus et je trouve le principe génial.
Vu la simplicité de la mise en oeuvre, je dis bravo.

Juste un détail: le eoAllowEdit correspond en fait à la propriété ReadOnly alors pourquoi s'embetter à le rajouter.

En tout cas, ça mérite bien son petit 10/10
++
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
44
Voilà c'est fait ...
si tu trouves autre chose, surtout n'hésite pas.

sur ce bonne nuit ... et ^_^
@+
Afficher les 16 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.