ctrl+v / shift+insert

[subzero]

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.

[islu]

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.

[[Lepe]]

Para lo del boton derecho, asignale un popup que no tenga items dentro.

Un saludo

[dec]

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.

[subzero]

Muchas, gracias a todos, me sirvio de mucho.