Inicio de programa

hola experto mira tengo un prg de inicio mas o menos así:

*
*Programa de Inicio
*LogisSoft
*Enero 2013
*
*Definición de Constantes
#Define nAplicasion "LogisSoft"

#Define nVersion "1.0.0"

#Define nIcono "icono.ico"

#Define nFondo "fondo.jpg"

*Configuración de presentación de la pantalla

SET PATH TO

? SET ("Path")

WITH _screen

.visible=.T.

.Caption=nAplicasion

.Windowstate=2

.icon=nIcono

.borderstyle=2

.Picture= "C:\users\alejo\desktop\proyecto envíos\gráficos\slogo.PNG"

.Maxbutton=.F.

.Forecolor=RGB(255,128,128)

ENDWITH

*Configurar los Set de la aplicación

SET SYSMENU TO DEFAULT SAVE

SET DEFAULT TO JUSTPATH(SYS(16))

SET PATH TO CLASES, DATA, FORMS, GRÁFICOS, ICONS, INFORMES, MENÚS, PRGS, TAPIZ, REPARADOR, SOURCE, CURSORES, SKINS

SET DATE AMERICAN

SET CENTURY ON

SET TALK OFF

SET SAFETY OFF

SET EXCLUSIVE OFF

SET DELETED ON

SET ENGINEBEHAVIOR 70

SET REPORTBEHAVIOR 90

SET HELP OFF

SET SYSMENU OFF

SET PATH TO

SET RESOURCE OFF

SET CONSOLE OFF

SET AUTOINCERROR OFF

SET STATUS OFF

SET CLOCK STATUS

& ; &; indicamos que archivo de procedimiento a abrir

SET PATH TO C:\users\alejo\desktop\proyecto nvios\DATOS

SET PATH TO C:\USERS\ALEJO\DESKTOP\PROYECTO ENVÍOS\INFORMES

SET PATH TO C:\USERS\ALEJO\DESKTOP\PROYECTO ENVÍOS\FORMULARIOS

SET PATH TO C:\USERS\ALEJO\DESKTOP\PROYECTO ENVÍOS\GRÁFICOS

do form "C:\USERS\ALEJO\DESKTOP\PROYECTO ENVIOS\FORMULARIOS\login.scx"

read events

on shutdown

release.extend

clear events

aquí ese ejecuta el formulario de login y que el usuario al ingresar su clave y que esta sea valida valla a un formulario de nivel superior donde se ejecuta mi menú.

primero cuando lo quiero cerrar no cierra. Si al formulario de login le doy cancelar esta pantalla no cierra

segundo: quiero saber si esta pantalla me tapa la pantalla del formulario de nivel superior

o como hago para que el formulario de login se ejecute en el formulario de nivel superior de una vez. Gracias por tu colaboración

Respuesta
1

Espero poder ayudarte.

El comando read events debe ir de ultimo. Quita on shutdown y clear events. Esto debe ir en el evento donde cierras tu aplicación cuando sales. No va en el prg principal.

Para cargar el form de login como de nivel superior, anda a la propiedad del form (en modo diseño) SHOWWINDOW y ahí cambia a 2 - top level form.

Proba y me avisas!

excelente respuesta, pero mira se quedan activas las ventanas de administrador de proyecto y propiedades. gracias

Ahhh para eso, coloca antes de READ EVENTS

Application.Visible = .F.

o si no

SCREEN = OFF

Y se ocultara la ventana principal de foxpro :)

Cualquier cosa, estoy a la orden en lo que pueda ayudarte! :)

Saludos!

Desde Managua, Nicaragua!

Ravenn :D :D

H

¿Has podido resolver tu duda? ¿Oo?

Disculpa experto pero es que estaba ocupado, mira al darle la instrucción:

Application.Visible = .F. se desaparece todo. y toca reiniciar el programa.

y con la instrucción SCREEN OFF todavía salen las ventadas de fox

No te preocupes! :)

Coloca

_screen.Hide

justo antes de

do form "C:\USERS\ALEJO\DESKTOP\PROYECTO ENVÍOS\FORMULARIOS\login.scx"

Y ahí no deberá aparecer la pantalla principal. :)

Añade tu respuesta

Haz clic para o