FiveTech Software tech support forums

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"

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.

Saludos Jose

Funciona ... no permite el copiado, Gracias