Re: Copier-Coller dans un champ de saisie

Posté par petitstagi le 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