Função MessageDlg
29/04/2003
0
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
Curtir tópico
+ 0
Responder
Posts
29/04/2003
Raphael Oliveira
em que lugar do seu código está este código, dentro do botão de exclusão ou no form?
Responder
29/04/2003
Nebrio
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;
Responder
29/04/2003
João Miguel
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)
