Fizemos uma rotina de inventário de carregamentos e precisava que tocasse um alerta, uma sirene, quando o operador comesse "bola", o jeito foi fazer um form, semelhante ao MessageBox, onde o cara é obrigado a ler a mensagem e ainda tem a sirene que ficou escancarada.
Jorge Ericsson escreveu: > > Valuew, mas isso eu já faço. > > vMsg := 'Ocorrência do '+tbsAtendimento.Caption+' Nº ' +inttostr( > dtmPrincipal.qryOcorrenciaSequencialNU_SEQ_OCORRENCIA.AsInteger) + ' > registrada com sucesso!'; > Application.MessageBox(PChar(vMensagem), 'Aviso do Sistema', mb_ok + > mb_iconinformation); > > Só que eu gostaria de que a mensagem fosse exibir assim: > Ocorrência do Atendimento 0800 Nº 123456 registrada com sucesso ! > > Sei que tem jeito usando uma criação dinâminca de um TForm ou usando um > TPanel, mas estou tentando através da API mesmo... > > No Delphi 2006 usando Dot.Net é moleza, mas eu estou marrento no Delphi 5 > para resolver o problema. > > Conseguindo eu publico como fazer porque muitos podem precisar. > > Valew Mesmo !!! > > Em 12/04/07, O2 Tecnologia (aJato) <[EMAIL PROTECTED] > <mailto:o2tecnologia%40ajato.com.br>> escreveu: > > > > > > Destacar uma parte só montando uma rotina sua interna, aonde criaria um > > form, e detalharia o que deseja, via API não tem jeito, para fazer o que > > deseja seria algo assim: > > > > Application.MessageBox(PChar('Ordem ' + FormatFloat(iNro_Ordem) + ' > > gravada com sucesso.'), 'Atenção', mb_Ok + mb_TaskModal + > mb_IconWarning); > > > > Jorge Ericsson escreveu: > > > > > > > > Boa tarde amigos, > > > > > > Alguém por a caso já destacou alguma frase ou palavra usando o > > > Application.MessageBOX ? > > > Exemplo: Ao gravar uma determinada ocorrência, eu informo ao usuário o > > > número da mesma: Nº 12345 gerado com sucesso. > > > Eu gostaria de destacar esse número com uma font maior ou em negrito. > > > Tem como fazer isto ??? > > > > > > Grato desde já, > > > > > > /************************************************************/ > > > /* As regras foram criadas para serem quebradas!!! */ > > > /***********************************************************/ > > > Jorge Ericsson S. Pinheiro > > > Analista/Projetista de Sistemas > > > Ericsson Sistemas e Soluções > > > http://www.jericssonsup.com.br <http://www.jericssonsup.com.br> > <http://www.jericssonsup.com.br <http://www.jericssonsup.com.br>> > > > 61 9667-4785 / 3966-4535 > > > Brasília- DF > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- > /*************************************************************/ > /* As regras foram criadas para serem quebradas!!! */ > /***********************************************************/ > Jorge Ericsson S. Pinheiro > Analista/Projetista de Sistemas > Ericsson Sistemas e Soluções > http://www.jericssonsup.com.br <http://www.jericssonsup.com.br> > 61 9667-4785 / 3966-4535 > Brasília- DF > > [As partes desta mensagem que não continham texto foram removidas] > > [As partes desta mensagem que não continham texto foram removidas]
