ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

[RESOLVIDO] Comando If Application.Message('Conf. a Excl.)

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
Marcelosoft
Mestre
Mestre


Registrado: Domingo, 21 de Janeiro de 2007
Mensagens: 862

MensagemEnviada: Sáb Mai 25, 2013 9:09 pm    Assunto: [RESOLVIDO] Comando If Application.Message('Conf. a Excl.) Responder com Citação

A quem puder me ajudar agradeço desde já !

Uso o Delphi 5 com o Paradox !

Tenho este comando e não sei como deixar direto na posição do botão "Não" ... o comando é .....

Código:
If Application.MessageBox('Confirma a Exclusão deste Cliente ?','MF VENDAS',MB_IconQuestion + MB_YesNo)=MrYes Then[quote]

Temo como deixar como Default no botão "Não" ? Ou teria outro comando para isso ! Pois preciso da confirmação de "Sim" e "Não" !

Att.
Marcelo.[/quote]


Editado pela última vez por Marcelosoft em Ter Mai 28, 2013 1:09 am, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
cyberdisk
Colaborador
Colaborador


Registrado: Domingo, 4 de Julho de 2010
Mensagens: 2391
Localização: São José dos Campos - SP

MensagemEnviada: Sáb Mai 25, 2013 9:35 pm    Assunto: Responder com Citação

exemplo

Código:
If Application.MessageBox('Confirma a Exclusão deste Cliente ?','MF VENDAS',MB_IconQuestion + MB_YESNO + MB_DEFBUTTON2) <> IDNo  Then


abraço
_________________
O conhecimento abre muitas portas
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
leo_cj
Colaborador
Colaborador


Registrado: Sábado, 26 de Março de 2011
Mensagens: 1335

MensagemEnviada: Seg Mai 27, 2013 10:26 am    Assunto: Responder com Citação

Usando o MessageDlg eu sei que você consegue definir um botão como default, com o Application.MessageBox eu não sei se é possível
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
carbox
Colaborador
Colaborador


Registrado: Quarta-Feira, 3 de Março de 2010
Mensagens: 1471

MensagemEnviada: Seg Mai 27, 2013 2:06 pm    Assunto: Responder com Citação

Application.MessageBox você quem define os botões que quer que apareçam, assim como os icones
ICONEXCLAMATION, ICONINFORMATION, ICONQUESTION, ETC

leo_cj escreveu:
Usando o MessageDlg eu sei que você consegue definir um botão como default, com o Application.MessageBox eu não sei se é possível
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
leo_cj
Colaborador
Colaborador


Registrado: Sábado, 26 de Março de 2011
Mensagens: 1335

MensagemEnviada: Seg Mai 27, 2013 2:43 pm    Assunto: Responder com Citação

carbox escreveu:
Application.MessageBox você quem define os botões que quer que apareçam, assim como os icones
ICONEXCLAMATION, ICONINFORMATION, ICONQUESTION, ETC

leo_cj escreveu:
Usando o MessageDlg eu sei que você consegue definir um botão como default, com o Application.MessageBox eu não sei se é possível


isso sim, mas o que eu digo é que não sei se no messagebox da pra setar qual deles vai receber o foco, que é a dúvida do Marcelosoft

pelo messagedlg eu sei que tem como passar qual deles vai receber o foco no parâmetro
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
cyberdisk
Colaborador
Colaborador


Registrado: Domingo, 4 de Julho de 2010
Mensagens: 2391
Localização: São José dos Campos - SP

MensagemEnviada: Seg Mai 27, 2013 7:22 pm    Assunto: Responder com Citação

por acaso os colegas viram esse exemplo ?

Código:
If Application.MessageBox('Confirma a Exclusão deste Cliente ?','MF VENDAS',MB_IconQuestion + MB_YESNO + MB_DEFBUTTON2) <> IDNo  Then


abraço
_________________
O conhecimento abre muitas portas
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail
carbox
Colaborador
Colaborador


Registrado: Quarta-Feira, 3 de Março de 2010
Mensagens: 1471

MensagemEnviada: Seg Mai 27, 2013 9:53 pm    Assunto: Responder com Citação

isso mesmo.... só reinterei como é possível configurar...

cyberdisk escreveu:
por acaso os colegas viram esse exemplo ?

Código:
If Application.MessageBox('Confirma a Exclusão deste Cliente ?','MF VENDAS',MB_IconQuestion + MB_YESNO + MB_DEFBUTTON2) <> IDNo  Then


abraço
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Marcelosoft
Mestre
Mestre


Registrado: Domingo, 21 de Janeiro de 2007
Mensagens: 862

MensagemEnviada: Ter Mai 28, 2013 1:07 am    Assunto: Responder com Citação

Obrigado a todos !

A resposta dos colaboradores que me passaram funcionou bem !

Mesmo assim fico grato a todos !

Att.
Marcelo.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB