Fórum Deletar registro numa tabela via DBGrid #349917

ola amigo , so para confirmar vc gostaria de fazer isso dando um duplo clique no grid?

ola amigo tente fazer dessa forma no evento OnDblClick do dbgrid:


procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
if MessageDlg (´tem certeza que deseja excluir a informacao?´,mtConfirmation,[mbYes,mbNo],0)= mrYes then begin
ADODataSet1.Delete;
ShowMessage(´Registro deletado com sucesso´);

end;
end;

end.

Caro Ciotti,

Valeu!

Funcionou!

uma funcaozinha legal...

function MensagemDlg(txtMsg:String):boolean;
var Mensagem: TForm;
begin
{Cria a janela de mensagem}
Mensagem:=createmessagedialog(txtMsg,MtConfirmation,[MbYes,MbNo]);
{Trazur o titulo da mensagem}
Mensagem.Caption:=´Confirme sua opção:´;
{Traduz os botões da caixa de mensagem}
(Mensagem.FindComponent(´Yes´) as TButton).Caption:=´Sim´;
(Mensagem.FindComponent(´No´) as TButton).Caption:=´Não´;
{Exibr a caixa de mensagem}
Mensagem.ShowModal;
{Verifica aqul botão foi pressionado}
If Mensagem.ModalResult=MrYes then
result:=true ELSE//;{Botão Sim}
//If Mensagem.ModalResult=MrNo then
result:=false;
{Botão Não}
end;


procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
if MensagemDlg(´tem certeza que deseja excluir este registro?´) then
begin
ADODataSet1.Delete;
ShowMessage(´Registro deletado com sucesso´);
end
else
ShowMessage(´Cancelado a exclusão´);