topic-40732

Board index FiveWin para Harbour/xHarbour Bloquear PASTE y CTRL+V en un GET

Posts: 582

Joined: Fri Oct 07, 2005 02:17 PM

Bloquear PASTE y CTRL+V en un GET
Posted: Thu Aug 12, 2021 11:32 PM

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"

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Bloquear PASTE y CTRL+V en un GET
Posted: Fri Aug 13, 2021 01:36 AM

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 (fw): Select all Collapse

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

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

Enrrique Vertiz

Posts: 582

Joined: Fri Oct 07, 2005 02:17 PM

Re: Bloquear PASTE y CTRL+V en un GET
Posted: Fri Aug 13, 2021 05:52 AM

Saludos Jose

Funciona ... no permite el copiado, Gracias

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m

FiveTech Support Forums

Continue the discussion