Evitar en un TEdit --> tecla suprimir y Boton derecho del raton - Pegar

[[Ivanzinho]]

La tecla suprimir la puedes anular así :

Código Delphi [-]
procedure TuProgama.ComboKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = KEYSUPR then
    abort;
end;

El código de la tecla suprimir creo que era el 46

En cuanto al PopUp puedes eliminarlo en el evento OnContextPopup.

Código Delphi [-]
procedure TuPrograma.ComboContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  abort;
end;

Un saúdo.

[mancurnino]

Gracias por la informacion, aun asi sigo teniendo una duda:

En los combobox, aunq en el evento onContextPopup ponga Abort; puedes hacer click derecho con el raton y cortar y pegar, y la peña podría cortar y pegar cosas aki y entonces me modificarían los datos que proporciono en este combobox. Vamos que en los TEdit si que anula el boton derecho del raton al hacer click, xo en los combobox no.

Alguna solucion?

[ContraVeneno]

¿ y si cambias las propiedad Style de ComboBox a csDropDownList?

[mancurnino]

lo de cambiar el Style me ha servido gracias¡ aunque no se que diferencia hay pero weno jeje. Gracias¡

[ContraVeneno]

Selecciona la propiedad Style en las propiedades y presiona F1. Ahí viene toda la explicación de cada una de las opciones.

[mancurnino]

Gracias amigo¡

[casacham]

Bueno, no hace mucho estuve con un problema similar, asi que puse en un hilo una pregunta y me respondieron esto, como para ver si te sirve sobre lo de pegar y/o copiar en un TEdit