Saltar para o conteúdo principal
Versão: Próximo

MESSAGE

MESSAGE ( mensagem )

ParâmetroTipoDescrição
mensagemTextMensagem a exibir

Esse comando não é seguro para thread e não pode ser usado em código adequado.

Descrição

O comando MESSAGE geralmente se utiliza para informar ao usuário sobre alguma atividade. Mostra mensagem na tela em uma janela de mensagem especial que se abre e fecha cada vez que chamar a MESSAGE, a menos que trabalhe com uma janela que abriu previamente utilizando Open window (ver detalhes abaixo). A mensagem é temporária e é apagada assim que um formulário for exibido ou o método parar de executar. Se outra MESSAGE for executada, a mensagem antiga é apagada.

Se abrir uma janela com Open window, todas as chamadas a MESSAGE mostram as mensagens nessa janela. A janela se comporta como um terminal:

  • As mensagens sucessivas não apagam as mensagens anteriores quando são mostradas na janela, são concatenadas em mensagens existentes.
  • Se uma mensagem for mais larga que a janela, 4D insere automaticamente um retorno a linha.
  • Se uma mensagem tiver mais linhas que a janela, 4D automaticamente desce a página.
  • Para controlar quebras de linha, inclua retornos de carro — Char(13) — em sua mensagem.
  • Para exibir o texto em um lugar específico da janela, chame GOTO XY.
  • Para apagar os conteúdos da janela, chame ERASE WINDOW.
  • A janela é apenas uma janela de output e não se redesenha quando outras janelas forem colocadas sobre ela.
  • Pode modificar a fonte e tamanho dos caracteres na janela através da página "Interface" nas Preferências de Banco de Dados.

Nota: MESSAGE é compatível com o comando Open form window; entretanto, no contexto do segundo parâmetro * de Open form window, que salva o tamanho e posição da janela, não é suportado

Exemplo 1

O exemplo a seguir processa uma seleção de registros e chama MESSAGE para informar ao usuário sobre o progresso da operação:

 For($vlRegistro;1;Records in selection([todaTabela]))
    MESSAGE("Processo do registro #"+String($vlRegistro))
  // Fazer algo com o registro
    NEXT RECORD([todaTabela])
 End for

A janela a seguir aparece e desaparece cada vez que se chama MESSAGE:

Exemplo 2

Com o objetivo de evitar a janela "piscante", pode mostrar as mensagens em uma janela aberta utilizando Open window, como em este exemplo:

 Open window(50;50;500;250;5;"Operação em progresso")
 For($vlRegistro;1;Records in selection([todaTabela]))
    MESSAGE("Processando registro #"+String($vlRegistro))
  // Fazer algo com o registro
    NEXT RECORD([todaTabela])
 End for
 CLOSE WINDOW

O resultado é o seguinte (em Windows):

Exemplo 3

Adicionar um retorno de carro melhora a presentação:

 Open window(50;50;500;250;5;"Operação em progresso")
 For($vlRegistro;1;Records in selection([todaTabela]))
    MESSAGE("Processando registro #"+String($vlRegistro)+Char(Carriage return))
  // Fazer algo com o registro
    NEXT RECORD([todaTabela])
 End for
 CLOSE WINDOW

Este é o resultado (em Windows):

Exemplo 4

Utilizando GOTO XY e escrevendo algumas linhas adicionais:

 Open window(50;50;500;250;5;"Operação em progresso")
 $vlNbRegistros:=Records in selection([todaTabela])
 $vhStartTime:=Current time
 For($vlRegistro;1;$vlNbRegistros)
    GOTO XY(5;2)
    MESSAGE("Processando registro #"+String($vlRegistro)+Char(Carriage return))
  // Fazer algo com o registro
    NEXT RECORD([todaTabela])
    GOTO XY(5;5)
    $vlResto:=(($vlNbRegistros/$vlRegistro)-1)*(Current time-$vhHoraInicio)
    MESSAGE("Tempo restante estimado: "+Time string($vlResto))
 End for
 CLOSE WINDOW

O resultado é o seguinte (em Windows):

Ver também

CLOSE WINDOW
ERASE WINDOW
GOTO XY
Open window