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