Fórum Configurando Mensagem #281092

11/05/2005

0

Galera, tenho um botao que executa a ação de apagar da tabela..

Daí eu coloquei:

if MessageDlg(´Confirma Exclusão deste Portador?´,mtWarning,[mbYes,mbNo],1) = mrYes then begin
with qryPortadores do begin
Delete;
ApplyUpdates;
end;
end;


Tudo Certo

Só que gostaria de que o botao Nao ficasse como default...

OUvi dizer que tem o MessageBox tb..

Se alguem puder me ajudar...
Agradeço

Abraços...


Tremonti

Tremonti

Responder

Posts

11/05/2005

Massuda

Use MessageBox (procure na Ajuda do Delphi). O equivalente para o exemplo que você passou seria:
if MessageBox(0, ´Confirma Exclusão deste Portador?´, ´Aviso´, MB_ICONWARNING or MB_YESNO or MB_DEFBUTTON2) = idYes then ...
O que faz o botão Não ser o default é o MB_DEFBUTTON2.


Responder

Gostei + 0

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

Aceitar