Bloquear PASTE y CTRL+V en un GET

[Enrrique Vertiz]

Saludos estimados

Estoy usando un GET para el ingreso de un password, pero me piden que en ese GET no se permita copiar informacion, osea impedir el PASTE o la combinacion CTRL+V, alguna idea para impedirlo (abajo la linea que uso) GRACIAS

REDEFINE GET oPass VAR cPass ID 120 OF oDlg PICTURE "@KR" VALID chkvalpas(cPass) ACTION ( oPass:lPassword := !oPass:lPassword, oPass:Refresh() ) BITMAP "#8007"

[JoseAlvarez]

Saludos,

Yo lo Hago mandando a grabar un valor nulo al portapapeles cuando el get toma el foco.
Es una idea, seguro los amigos del foro aportaran otras más.

Code: Select all  Expand view

#include "FiveWin.ch"

Function Main()

  Local oDlg, oClp, oGetPassword
  Local cGetPassword:=Spac(8)

  Define Dialog oDlg
   Define CLIPBOARD oClp OF oDlg
   
   Redefine get oGetPassWord Var cGetPassWord Id 4002 of oDlg
   oGetPassWord:bGotFocus:={|| oClp:SetText( '' ) }

  Activate dialog oDlg

Return .t.

[Enrrique Vertiz]

Saludos Jose

Funciona ... no permite el copiado, Gracias