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.

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.

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

Un saludo

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.

Muchas, gracias a todos, me sirvio de mucho.