Utilizando um Message Box com o foco no botão não.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | { É necessário declarar Windows e Forms, em versões unicode declare Winapi.Windows e Vcl.Forms } // Exemplo de uso: procedure TForm1.Button1Click(Sender: TObject); var vAux : Integer; begin if Application.MessageBox (PChar ('Deseja excluir o arquivo?'), 'Confirmação', MB_USEGLYPHCHARS + MB_DEFBUTTON2) = mrYes then ShowMessage('Você clicou em Sim') else ShowMessage('Você clicou em não.'); end; |
O segredo aqui é a constante MB_DEFBUTTON2 que seta o foco para o segundo botão.
Se fosse utilizado outro tio de messageBox com mais botões, pode-se utilizar
outras constrantes, como por exemplo:
MB_DEFBUTTON3: Coloca o foco no terceiro botão.
MB_DEFBUTTON4: Coloca o foco no quarto botão.
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
