Fórum Como alterar caption dos botões do messagedlg #592684
23/04/2018
0
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
Curtir tópico
+ 0
Responder
Post mais votado
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/
Natanael Ferreira
Responder
Gostei + 1
Mais Posts
24/04/2018
Gilberto Moura
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..
Responder
Gostei + 0
24/04/2018
Natanael Ferreira
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)