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