2 PERGUNTAS SOBRE O MESSAGEDLG
14/02/2003
0
1. COMO FAÇO PARA ALTERAR POR EXEMPLO OK E CANCEL PARA SIM E NÃO
2. COMO FAÇO PARA UTILIZAR YESNOCANCEL POR NÃO CONSIGO FAZER O IF TESTAR, CONSIGO TESTAR A PRIMEIRA OPÇÃO DEPOIS NÃO EXEMPLO, = MRYES AI EU NÃO SEI O QUE COLOCA NO ELSE IF PARA TESTA O MRNO E AI SIM O ELSE PARA O CANCEL
AGUARDO RESPOSTA OBRIGADO...
OUROFRIO@CIBERPOINT.COM.BR
2. COMO FAÇO PARA UTILIZAR YESNOCANCEL POR NÃO CONSIGO FAZER O IF TESTAR, CONSIGO TESTAR A PRIMEIRA OPÇÃO DEPOIS NÃO EXEMPLO, = MRYES AI EU NÃO SEI O QUE COLOCA NO ELSE IF PARA TESTA O MRNO E AI SIM O ELSE PARA O CANCEL
AGUARDO RESPOSTA OBRIGADO...
OUROFRIO@CIBERPOINT.COM.BR
Ourofrio.sp
Curtir tópico
+ 0
Responder
Posts
14/02/2003
Anonymous
Caro amigo, não me lembro no momento a sintaxe do dlg,mas se vc quiser use o messagebox, que ja vem com os botões traduzidos pelo sistema operacional.
É assim:
messagebox(handle,´Mensagem que vc quer´,´Titulo da caixa de dialogo´,MB_OK or MB_ICONWARNING);
se vc quiser testar é assim:
if messagebox(handle,´Mensagem que vc quer´,´Titulo da caixa de dialogo´,MB_YESNO or MB_ICONWARNING) = ID_YES then
begin
...
end
else
.....
Vc pode passar para os ícones dos botões 4 tipos de figuras, são elas:
MB_ICONWARNING
MB_ICONQUESTION
MB_ICONINFORMATION
MB_ICONERROR
Não me lembro se ele permite OKCANCEL, mas de uma testada.
Lembre-se, não é preciso traduzir os botões pois eles ja vem traduzidos pelo próprio sistema operacional.
Valeu
qualquer coisa me mande um e-mail:
eduardo@lpnet.com.br
É assim:
messagebox(handle,´Mensagem que vc quer´,´Titulo da caixa de dialogo´,MB_OK or MB_ICONWARNING);
se vc quiser testar é assim:
if messagebox(handle,´Mensagem que vc quer´,´Titulo da caixa de dialogo´,MB_YESNO or MB_ICONWARNING) = ID_YES then
begin
...
end
else
.....
Vc pode passar para os ícones dos botões 4 tipos de figuras, são elas:
MB_ICONWARNING
MB_ICONQUESTION
MB_ICONINFORMATION
MB_ICONERROR
Não me lembro se ele permite OKCANCEL, mas de uma testada.
Lembre-se, não é preciso traduzir os botões pois eles ja vem traduzidos pelo próprio sistema operacional.
Valeu
qualquer coisa me mande um e-mail:
eduardo@lpnet.com.br
Responder
14/02/2003
Fred
use as mensagens Application.MessageBox que os botões ja vem traduzidos de acordo com o windows
Ex:
Application.messagebox(´Registro nao pode ...´,´Erro´,mb_ok+mb_iconerror)
as respostas sao idyes idok e nao mr
quanto a outra questao tente o seguinte
case mensagem... of
idyes: begin
comandos
end;
idno: begin
comandos
end;
idcancel: begin
comandos
end;
end;
:wink:
Ex:
Application.messagebox(´Registro nao pode ...´,´Erro´,mb_ok+mb_iconerror)
as respostas sao idyes idok e nao mr
quanto a outra questao tente o seguinte
case mensagem... of
idyes: begin
comandos
end;
idno: begin
comandos
end;
idcancel: begin
comandos
end;
end;
:wink:
Responder
Clique aqui para fazer login e interagir na Comunidade :)
