Hola a todos/as. Ya he planteado este asunto y he buscado en los foros pero no consigo solucionarlo. Se trata simplemente de eliminar la pulsación de la tecla Supr, ya que la utilizo en los maestros para eliminar registros. Tengo el siguiente código:
Código:
procedure TIndices.DBCtrlGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
inherited;
//Pulsacion de Borrar Registro (Suprimir)
if (Key=VK_DELETE) then
begin
//He probado con cualquiera de las tres:
//1.- Key := 0;
//2.- Key:=VK_OEM_CLEAR;
//3.- DBCtrlGrid1.DoKey(gkNull);
if not (DataSource1.State in [dsInsert,dsEdit]) and not (DataSource1.DataSet.Eof) then
if (Application.MessageBox('¿Seguro que desea borrar el registro?',
'Sistema de Gestión de Constructoras',mb_yesno+mb_IconInformation)=idyes) then
DataSource1.DataSet.Delete;
Exit;
end;
Esto funciona bien, pero la tecla Supr continua activa y realiza su función, es decir, suprime.
Por favor, indicarme como conseguir que no surpima tras su captura. Gracias