Fórum Função MessageDlg #156649

29/04/2003

0

Delphi

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;


Rodrigom

Rodrigom

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

Gostei + 0

29/04/2003

Rodrigom

O código está dentro do botão de excluir no form.


Responder

Gostei + 0

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;


Responder

Gostei + 0

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar