7 de noviembre de 2002

Saber los Captions de todos los forms abiertos

Este código nos muestra el Czption de cada uno de los formularios que actualmente estén abiertos, se puede usar para ver si lo queremos cerrar o no, dependiendo del Caption del formulario.
Local Caption_F, Ciclo
if _screen.formcount=0
    ? 'Ningun Formulario Abierto.'
    RETURN 
endif
dimension CAPTION_F [ _SCREEN.FORMCOUNT]
**Obtenemos los captions, y los metemos a la matriz
for Ciclo = 1 to _SCREEN.FORMCOUNT 
    caption_F[ciclo]=ALLTRIM(_screen.forms(ciclo).caption)
endfor

***mostramos los captions encontrados.
for Ciclo = 1 to _SCREEN.FORMCOUNT
    ? 'Numero ' + STR(CICLO) + ' Caption: ' + caption_F[ciclo]
endfor
Jorge Mota

No hay comentarios. :

Publicar un comentario