Re: Copier-Coller dans un champ de saisie |
Sujet: Re: Copier-Coller dans un champ de saisie par petitstagi sur 27/6/2003 9:26:28 bonjour, voici une réponse qui désactive vraiment le ctrl-v et qui peut être complétée pour désactiver d'autres touches. réponse donnée par JL : // Code dans la zone déclarations globales de la fenêtre // saisie1 étant le champ rtf EM_SETEVENTMASK est un entier = 0x400 + 69 SendMessage(Handle(Saisie1),EM_SETEVENTMASK,0,0x10000) Evénement("IdentEvenement","",0x4E) //4e=notify // PROCEDURE IdentEvenement() msgfilter est une structure hwndFrom est un entier idFrom est un entier sans signe code est un entier sans signe msg est un entier sans signe wParam est un entier lParam est un entier FIN msg est un msgfilter API("kernel32","RtlMoveMemory",&msg,_EVE.lparam,Dimension(msg)) SI msg:hwndFrom = Handle(Saisie1) ALORS SI msg:code = 0x700 // EN_MSGFILTER SI msg:msg = 0x100 ALORS // WM_KEYDOWN SI msg:wParam = 86 ET ToucheEnfoncée(teControl) ALORS // CTRL V RENVOYER 1 FIN FIN FIN FIN bon courage petitstagiaire nb : je ne vous cache pas que je n'ai pas tout compris mais ça s'utilise bien |