SET WINDOW TITLE
SET WINDOW TITLE ( titulo {; ventana} )
| Parámetro | Tipo | Descripción | |
|---|---|---|---|
| titulo | Text | → | Título de la ventana |
| ventana | Integer | → | Número de referencia de ventana o Ventana del primer plano del proceso actual si se omite el parámetro |
Este comando no es hilo seguro, no puede ser utilizado en código apropiativo.
Descripción
El comando SET WINDOW TITLE cambia el título de la ventana cuyo número de referencia se pasa en ventana para el texto pasado en titulo (longitud máxima 80 caracteres).
Si la ventana no existe, SET WINDOW TITLE no hace nada.
Si omite el parámetro ventana, SET WINDOW TITLE reemplaza el título de la ventana del primer plano del proceso actual.
Nota: en el entorno Diseño, 4D define automáticamente los títulos de las ventanas, por ejemplo, “Entrada para tabla 1” cuando realiza una entrada de datos. Si cambia un título de ventana, es probable que 4D lo sobrescriba. Por otra parte, en el entorno Aplicación, 4D no cambia los títulos de las ventanas.
Ejemplo
Mientras efectúa una entrada de datos en un formulario, usted hace clic en un botón que ejecuta una operación larga (por ejemplo, una modificación por programación de los registros relacionados mostrados en un subformulario). Puede mantenerse informado sobre el progreso de la operación utilizando el título de la ventana actual:
// Método de objeto del botón bAnalisis
Case of
:(FORM Event=On Clicked)
// Guardar el título actual de la ventana en una variable
$vsTituloActual:=Get window title
// Iniciar la operación larga
FIRST RECORD([Lineas factura])
For($vlRegistro;1;Records in selection([Lineas factura]))
HACER ALGO
// Mostrar el progreso
SET WINDOW TITLE("Procesando la línea #"+String($vlRegistro))
End for
// Restaurar el título original de la ventana
SET WINDOW TITLE($vsTituloActual)
End case