Função MessageDlg
Estou usando uma função MessageDlg para perguntar ao usuário se ele realmente deseja deletar o registro de uma Query q está ligada a um DBGrid. Estou utilizando dois buttons mbOk e mbNo. Quando ele clica no Ok ou no No, ele acaba fechando o Form corrente. O q será q está errado?
if MessageDlg(´Deseja realmente excluir o registro?´,mtconfirmation,[mbyes,mbno],0)= mryes then
begin
DtsDbgrid.DataSet.Delete;
end
else
Editnome.setfocus;
if MessageDlg(´Deseja realmente excluir o registro?´,mtconfirmation,[mbyes,mbno],0)= mryes then
begin
DtsDbgrid.DataSet.Delete;
end
else
Editnome.setfocus;
Rodrigom
Curtidas 0
Respostas
Raphael Oliveira
29/04/2003
em que lugar do seu código está este código, dentro do botão de exclusão ou no form?
GOSTEI 0
Rodrigom
29/04/2003
O código está dentro do botão de excluir no form.
GOSTEI 0
Nebrio
29/04/2003
Experimente assim:
if Application.MessageBox(´Confirma Exclusão !´ , ´Atenção !!!´,
mb_iconquestion + mb_yesno + mb_defbutton1) = idyes then
begin
Table.Delete;
end;
Edit.SetFocus;
if Application.MessageBox(´Confirma Exclusão !´ , ´Atenção !!!´,
mb_iconquestion + mb_yesno + mb_defbutton1) = idyes then
begin
Table.Delete;
end;
Edit.SetFocus;
GOSTEI 0
João Miguel
29/04/2003
O botão é um BitBtn?
Vc utilizou a propriedade Kind para inserir uma imagem no botão?
dê uma olhada na propriedade modalresult do botão(acho que é esta propriedade) coloque custom
Vc utilizou a propriedade Kind para inserir uma imagem no botão?
dê uma olhada na propriedade modalresult do botão(acho que é esta propriedade) coloque custom
GOSTEI 0