Fórum Como usar apenas o DEL em um dbgrid #286484
29/06/2005
0
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é...
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
Curtir tópico
+ 0
Responder
Posts
29/06/2005
Jairroberto
Olá, Aldus!
Você pode utilizar o evento OnKeyDown para capturar e tratar a tecla DEL da seguinte forma:
Para usar a sua própria mensagem, como demonstrado acima, desligue a opção ´dgConfirmDelete´ da propriedade ´Options´ do ´DBGrid´.
Um abraço,
Jair
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)