Configurando Mensagem
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...
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
Curtidas 0
Respostas
Massuda
11/05/2005
Use MessageBox (procure na Ajuda do Delphi). O equivalente para o exemplo que você passou seria:O que faz o botão Não ser o default é o MB_DEFBUTTON2.
if MessageBox(0, ´Confirma Exclusão deste Portador?´, ´Aviso´, MB_ICONWARNING or MB_YESNO or MB_DEFBUTTON2) = idYes then ...
GOSTEI 0