Fórum duvidas com Application.MessageBox #417366

24/05/2012

0

Delphi

Galera estou fazendo um sisteminha e gostaria de hora de gravar o pedido aparecer uma tela avisando que foi gravado.
Da seguinte forma.

Application.MessageBox(Pré Venda Gravada com sucesso,Informação do Sistema,
MB_OK+MB_ICONINFORMATION);


Mas gostaria de colocar nessa tela o numero do pedido que está gravado no edtNroPedido.text

Como insiro isso na menssagem????
tipo

Application.MessageBox(Pré Venda N: +edtNroPedido.text, Gravada com sucesso,Informação do Sistema,
MB_OK+MB_ICONINFORMATION);

no aguardo obrigado!!!!!!!!!!!!!!!!!!

Guilherme

Guilherme

Responder

Posts

24/05/2012

William

Colega se não me engano o primeiro parâmetro para MessaBox tem que ser uma constante, mas a idéia é concatenação de strings mesmo.

Caso aparece algum erro poste ai... no momento estou sem delphi para testar.
Responder

Gostei + 0

24/05/2012

Deivison Melo

Observe que ao utilizarmos o Application.MessageBox ele irá chamar os botões pré-definidos e serão retornados na linguagem que o sistema operacional estiver utilizando, ou seja, se mesmo programando em um windows em ptBR se rodarmos o nosso sistema em um SO usando a linguagem ENG veremos que as mensagens serão chamadas em inglês, pois o utiliza a API do windows .

Recomendaria que fizesse seu próprio formulário de mensagens personalizadas.

Exemplos:

http://www.planetadelphi.com.br/dica/7311/criando-uma-caixa-de-mensagem-personalizada-


https://www.devmedia.com.br/dicas-caixa-de-mensagens/799

http://www.tecnobyte.com.br/dica8.html#dica159

https://www.devmedia.com.br/artigo-clube-delphi-edicao-29-caixas-de-mensagem/13518

E etc...

Eu mesmo utilizada uma caixa de mensagens personalida em minhas aplicações quando desenvolvia em Delphi!!

Assim poderia ter o controle melhor de suas caixas de mensagens...
Responder

Gostei + 0

24/05/2012

Luiz Vichiatto

No caso o Application.MessageBox utiliza PCHAR, no caso terás de converter.
Para resolver isto tenho uma fução que converte em pchar
pcharMSG : PChar;

GetMen(pcharMSG, length(Mensagem)+1;
StrCopy(pcharMSG, pChar(Mensagem));
Application.MessgeBox(pcharMSG, Mensagem, mb_ok+....);


Galera estou fazendo um sisteminha e gostaria de hora de gravar o pedido aparecer uma tela avisando que foi gravado.
Da seguinte forma.

Application.MessageBox(Pré Venda Gravada com sucesso,Informação do Sistema,
MB_OK+MB_ICONINFORMATION);


Mas gostaria de colocar nessa tela o numero do pedido que está gravado no edtNroPedido.text

Como insiro isso na menssagem????
tipo

Application.MessageBox(Pré Venda N: +edtNroPedido.text, Gravada com sucesso,Informação do Sistema,
MB_OK+MB_ICONINFORMATION);

no aguardo obrigado!!!!!!!!!!!!!!!!!!

               

                        

                            

                                
                                Responder
                            


                            

                                
                                
Gostei + 0

                            

                        


                    



                


                        


                            
                            
                                
 24/05/2012

                                
  
                                    
                                            Bruno Leandro
                                        
                                    

                            

                        


                        
caso ainda não deu certo voce pode utilizar da seguinte forma



Application.MessageBox( PChar(`Pré Venda N: ` +edtNroPedido.text+ `, Gravada com sucesso`) ,`Informação do Sistema`,

MB_OK+MB_ICONINFORMATION);
               

                        

                            

                                
                                Responder
                            


                            

                                
                                
Gostei + 0

                            

                        


                    



                


                        


                            
                            
                                
 24/05/2012

                                
  
                                    
                                            Deivison Melo
                                        
                                    

                            

                        


                        
o que ele queria mudar pelo que entendi são os captions dos botões!!



Se estiver enganado me corrijam por favor!



Forte abraço!!


               

                        

                            

                                
                                Responder
                            


                            

                                
                                
Gostei + 0

                            

                        


                    



                


                        


                            
                            
                                
 24/05/2012

                                
  
                                    
                                            Guilherme
                                        
                                    

                            

                        


                        
caso ainda não deu certo voce pode utilizar da seguinte forma



Application.MessageBox( PChar(`Pré Venda N: ` +edtNroPedido.text+ `, Gravada com sucesso`) ,`Informação do Sistema`,

MB_OK+MB_ICONINFORMATION);








Exatamente o que eu Queria.....muito obrigado pela atenção!!!!!!!!!!!!

abraços
               

                        

                            

                                
                                Responder
                            


                            

                                
                                
Gostei + 0

                            

                        


                    



                


            

                

    
			
        

                       
            
        
        
    



            

            
            
            
        


    






        

        
				
		

		
				
					
			

				
Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

				

					Aceitar