FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
ctrl+v / shift+insert
Hola:
Alguien sabe como se puede inhabilitar el pegado en un edit estoy haciendolo de la siguiente manera en el evento "KeyDown" escribiendo este código: .... if ( (Shift = [ssCtrl]) and (Key = Ord('V')) ) OR ( (Shift = [ssShift]) and (Key = VK_INSERT) ) then key := 0; .... Pero en algunos casos no me funciona, alguien conoce otra manera. |
#2
|
|||
|
|||
Una vez tuve que hacer algo por el estilo, prueba con esto :
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if( (Shift = [ssCtrl] ) or (Shift = [ssShift] ) ) then Edit1.ReadOnly := true else Edit1.ReadOnly := false ; end; Supongo que deberás controlar también el click derecho del ratón, el pegar, no? Un saludo. |
#3
|
||||
|
||||
Para lo del boton derecho, asignale un popup que no tenga items dentro.
Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#4
|
||||
|
||||
Hola,
Hay quien hizo un componente descendiendo de "TEdit" que no admite el uso del "ClipBoard". Lo he probado en Delphi 7 y no parece funcionar, pero, es posible que te dé algunas ideas. Está aquí mismo. |
#5
|
|||
|
|||
Muchas, gracias a todos, me sirvio de mucho.
|
|
|
|