Como alterar caption dos botões do messagedlg

Delphi

23/04/2018

Tenho a seguinte função para perguntar se o usuário deseja realizar outro cadastro, queria trocar em vez de "Yes" e "No", para sim e não de forma simples!

Estou usando o seguinte código...

if MessageDlg('Deseja realizar outro cadastro ?', mtConfirmation, [mbYes, mbNo], 0, mbYes) <> mrYes
then begin
Gilberto Moura

Gilberto Moura

Curtidas 0

Melhor post

Natanael Ferreira

Natanael Ferreira

24/04/2018

Para traduzir o MessageDlg veja o link abaixo:
https://www.devmedia.com.br/chega-de-yes-e-no-no-delphi/13878

Para evitar este trabalho de tradução, te aconselho a usar o Application.Messagebox que já vem em Português, veja este link:
https://marciohbe.wordpress.com/2009/11/25/application-messagebox/
GOSTEI 1

Mais Respostas

Gilberto Moura

Gilberto Moura

23/04/2018

Muito útil, como dar funções ? Utilizei assim:

Código:

if Application.MessageBox('Deseja realizar outro cadastro ?', 'Atenção!', MB_ICONWARNING + mb_yesno) <> mbyes
then begin
LimparCampos;
Close;
end;

Mais não deu certo..
GOSTEI 0
Natanael Ferreira

Natanael Ferreira

23/04/2018

Troque mbYes por mrYes. Teste assim:

  if Application.MessageBox('Deseja realizar outro cadastro ?', 'Atenção!',
    MB_ICONWARNING + mb_yesno) <> mrYes then
  begin
    LimparCampos;
    Close;
  end;
GOSTEI 0
POSTAR