ctrl shift del. Desabilitar no dbgrid.

Delphi

16/07/2004

Boa noite colegas
No dbgrid, como desabilitar a combinação de teclas Crtl+shift+del?
Agradeço por qualquer dica.
Delmar


:idea: [color=red:946f083690]Título alterado pelo Moderador oTTo. Removido: ´ctrl+shift+del´.[/color:946f083690]
:idea: [color=blue:946f083690]Seja mais claro no título.[/color:946f083690]


Delmar

Delmar

Curtidas 0

Respostas

Persist

Persist

16/07/2004

Se for só pra não deletar do teclado acho que só Ctrl+Del resolve:
procedure Tfmxxx.DBGridKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (ssCtrl in Shift) and (Key = VK_DELETE) then
    Key := 0;
end;



GOSTEI 0
Paty

Paty

16/07/2004

Como faco para desabilitar o [b:58f61fae4e]crtl+shift+del[/b:58f61fae4e] e [b:58f61fae4e]crtl+del[/b:58f61fae4e] de um DBgrid?

Para o crtl+de até consigo desabilitar da seguinte forma:

IF ((Shift = [ssCtrl]) AND (key = vk_delete))
THEN Key = 0;

mas o crtl+shift+del continua funcionando.

Se utilizar o seguinte comando:

if (ssCtrl in Shift) and (Key = VK_DELETE) then
Key := 0;

Não consigo fazer nenhuma alteracao no dbgrid


GOSTEI 0
Fknyght

Fknyght

16/07/2004

Eu simplesmente coloco o DBGrid com ReadOnly = True

Funciona


GOSTEI 0
POSTAR