Como alterar caption dos botões do messagedlg
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
Estou usando o seguinte código...
if MessageDlg('Deseja realizar outro cadastro ?', mtConfirmation, [mbYes, mbNo], 0, mbYes) <> mrYes
then begin
Gilberto Moura
Curtidas 0
Melhor post
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/
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
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..
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
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