4D Doc Center : SET WINDOW TITLE

4D v14.3

SET WINDOW TITLE


SET WINDOW TITLE ( titulo {; janela} )

Parâmetro	Tipo	Descrição
titulo	cadeia	título da janela
janela	WinRef	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<span></span><gen9>("Processando a linha #"+String($vlRegistro))

       End for

  ` Restaurar o título original da janela

       SET WINDOW TITLE($vsTituloAtual)

 End case</gen9>