Como usar apenas o DEL em um dbgrid

Delphi

29/06/2005

Olá amigos, gostaria de implementar o uso da tecla DEL no dbgrid para que meu usuário apague dados facilmente.

Como intercedo essa tecla e retorno no registro imediamente posterior.

Exemplo: Tenho 10 registros, estou sobre o quinto registro, pressiono DEL, faço a pergunta para confirmar e então apago o registro e depois retorno no registro sexto, que agora é o quinto.

Até...


Aldus

Aldus

Curtidas 0

Respostas

Jairroberto

Jairroberto

29/06/2005

Olá, Aldus!

Você pode utilizar o evento OnKeyDown para capturar e tratar a tecla DEL da seguinte forma:

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_DELETE then
  begin
    Key := 0;
    if IsPositiveResult(MessageDlg(´Confirma exclusão?´, mtConfirmation, [mbYes, mbNo], 0)) then
      DBGrid1.DataSource.DataSet.Delete;
  end;
end;


Para usar a sua própria mensagem, como demonstrado acima, desligue a opção ´dgConfirmDelete´ da propriedade ´Options´ do ´DBGrid´.


Um abraço,
Jair


GOSTEI 0
POSTAR