Fórum showmessage com os botões de yes e no mas, como sim e não #175942
19/08/2003
0
T+ pessoal
Machado
Curtir tópico
+ 0Posts
19/08/2003
Abueno_silva
if Application.MessageBox(´<sua mensagem>´,´<titulo do box>´,mb_yesno + mb_iconquestion) = id_yes then
Begin
comandos para sim
End
else
Begin
comandos para nao
End;
Gostei + 0
19/08/2003
Machado
Existe outra forma?
Gostei + 0
20/08/2003
Bacalhau
Faz o dowload, edita essas units e verás que podem ser traduzidas muito mais mensagens do que as que perguntas.
Traduzes tudo o que quiseres, compilas os teus projectos com essas units e farás os teus clientes felizes para sempre
abraço do bacalhau
Gostei + 0
20/08/2003
Arc
Eu utilizo o mesmo comando indicado por vc
´if Application.MessageBox(´<sua mensagem>´,´<titulo do box>´,mb_yesno + mb_iconquestion) = id_yes´ ...
Mas como ficariam os ifs se no lugar de [i:f788494a35][b:f788494a35]mb_yesno[/b:f788494a35][/i:f788494a35] eu colocasse mb_yesnocancel ...
Abraço
Édson[/u]
Gostei + 0
20/08/2003
Rafael Heise
Application é uma variável do tipo TApplication e a classe TApplication tem uma função chamada MessageBox que retorna um valor Cardinal, e que pode ser usadas as constantes indicando o botão clicado IDYES,YDNO,IDCANCEL e assim por diante. Quando você chama esta função e passa os parâmetros, a mensagem aparece e o resultado é o botão clicado. E por isso, é usado assim...
abraços
Gostei + 0
20/08/2003
Bacalhau
Não matem moscas com tanques de guerra!!
Gostei + 0
22/06/2015
Marcos Bug
[code]procedure btnSimClick (Sender: TObject);
[code]begin
[code] ShowMessageFmt('Titulo','Selecione a sua mensagem assim',mb_yesno + mb_iconquestion) = id_yes;
[code]end;
Gostei + 0
20/05/2017
Luis Fessel
Desculpa ai gente mas, procurando uma coisa, achei este post. Creio que, algumas coisas não ficaram bem claras por aqui.
A vantagem de utilizar o Application.MessageBox é que, como o Rafael Heise explicou, esta é uma função do APLICATIVO e, sendo assim, os textos dos botões e mensagens que serão utilizados serão puxados do aplicativo. Este, por sinal, puxa do sistema e, com isto, você terá seus textos sempre no mesmo idioma do S.O.
Caso você queira fixar os texto num determinado idioma, faça como o Bacalhau escreveu mas, não precisa baixar de lugar nenhum. Procure ns pastas de instalação do Delphi que estão lá. E, tem outras units que também podem ser traduzidas, na mesma pasta (não me lembro agora qual é), que permitirão que você traduza TUDO no seu sistema. Lembre-se de fazer uma cópia dos arquivos antes de traduzi-los pois, depois que fizer as kakas, fica difícil corrigir.
Quando você utiliza as outras funções, que não são funções de Application, elas buscam os textos nestas units e, dessa maneira, você pode fixar os textos no idioma desejado.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)