SET WINDOW TITLE

SET WINDOW TITLE ( titulo {; janela} )

Parâmetro	Tipo		Descrição
titulo	Text	→	título da janela
janela	Integer	→	Número de referência da Janela, ou a janela ativa do processo atual, se omitido

Descrição

O comando SET WINDOW TITLE muda o título da janela cujo número de referência é passado em janela para o texto passado em titulo (longitude máxima 80 caracteres).

Se a janela não existir, SET WINDOW TITLE não faz nada.

Se omitir o parâmetro janela, SET WINDOW TITLE substitui o título da janela do primeiro plano do processo atual.

Nota: no ambiente Desenho, 4D define automaticamente os títulos das janelas, por exemplo, “Entrada para tabela 1” quando realiza uma entrada de dados. Se muda um título de janela, é provável que 4D o reescreva. Por outro lado, no ambiente Aplicação, 4D não muda os títulos das janelas.

Exemplo

Enquanto realiza uma entrada de dados em um formulário, você clica em um botão que executa uma operação longa (por exemplo, uma modificação por programação dos registros relacionados mostrados em um subformulário). Pode manter-se informado sobre o progresso da operação utilizando o título da janela atual:

  // Método de objeto do botão bAnalise
 Case of
    :(FORM Event=On Clicked)
  // Guardar o título atual da janela em uma variável
       $vsTituloAtual:=Get window title
  // Iniciar a operação longa
       FIRST RECORD([Linhas fatura])
       For($vlRegistro;1;Records in selection([Linhas fatura]))
          HACER ALGO
  // Mostrar o progresso
          SET WINDOW TITLE("Processando a linha #"+String($vlRegistro))
       End for
  // Restaurar o título original da janela
       SET WINDOW TITLE($vsTituloAtual)
 End case

Ver também

Get window title

Propriedades

Número do comando	213
Thread-seguro	✗