Tem como fazer um setfocus numa messagebox

[brunoguitarman 0]

Aí, galera, tem como eu fazer algo tipo um SetFocus numa MessageBox? Tipo, uma com o MB_YESNO que venha com aquele contorninho no botão YES.

[marcio.theis 3]

Uma das formas seria:

 

MessageBox(Application.Handle, 'Teste de Mensagem !', 'Teste', MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION or MB_DEFBUTTON2);

Mas usando o Application.MessageBox fica:

 

Application.MessageBox('Teste de Mensagem !', 'Teste', MB_YESNO or MB_APPLMODAL or MB_ICONQUESTION or MB_DEFBUTTON2);

Onde que por default ele deixa o focus sobre o campo "Não" a segunda opção.