Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Como inhabilitar Ctrl+Supr en Rejilla de datos (https://www.clubdelphi.com/foros/showthread.php?t=12888)

pinoxito 30-07-2004 02:21:00

Como inhabilitar Ctrl+Supr en Rejilla de datos
 
Como puedo inhabilitar que cuando se teclee Ctrl+Supr en una rejilla de datos no aparezca el mensaje "Delete record?" y que no pueda borrar nada??

He intentado capturar la tecla en el evento onKeyDown de la rejilla y darle un valor nulo, pero no hace nada.

procedure TAlbaranes.LineasKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ( ssCtrl in Shift ) and ( key = VK_DELETE) then // ctrl + Supr
begin
if ( Albaranes_DM.AlbaranL.FieldByName('ACTUALIZADO').ASString = 'S')
then key := 0;
end;
end;

roman 30-07-2004 02:34:04

No es el grid con el que tienes que impedirlo sino con el dataset asociado (Table, Query, etc). Usa el evento OnBeforeDelete y coloca una excepción para impedir que se borre el registro. Si no deseas que se muestre ningún mensaje puedes usar abort que es una excepción que no muestra ningún mensaje.

// Saludos

pinoxito 30-07-2004 03:24:51

Gracias por tu ayuda, ciertamente era asi como se hacia! :)


La franja horaria es GMT +2. Ahora son las 21:38:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi