Ventana de Visual Fox en aplicacion ejecutable (.exe)

[fcocibaeno]

Saludos.
Estoy desarrollando una pequeña aplicacion y resulta que en el entorno
de diseño mi formaulario funciona perfectamente, pero, despues de
generar el proyecto y convertirlo en ejecutable (Win32 executable /
COM server (exe)), cuando quiero ejecutarlo siempre se presenta una
ventana detras de mi formulario con el titulo "Microsoft Visual Fox
Pro". Lo malo es que mi formulario esta dentro de dicha ventana y
cuando quiero cerrarla me dice "No se puede salir de Visual Fox Pro".

Agradeceria cualquier ayuda para que solo aparezca en pantalla la
ventana de mi formaulario.


Gracias..

[Jhondy]

Parece que es la pantalla principal de fox, prueba a maximizarla,
cambiar tamaño o esconderla para que no te moleste

_screen.WindowState=2 && Maximizarla
_screen..width=800 && ancho 800
_screen..width=600 && altura 600

Saludos

[GOOD_FOX]

Hola ke tal..

si, lo ke puedes hacer es ocultar la ventana principal de Fox antes
de que entres a la otra ventana que es la principal de tu sistema

Deactivate Wind Screen

y cuando salgas la vuelves a activar

Activate Wind Screen


Nota: la ventana principal de tu sistema debería estar configurada
Como Formulario de Nivel Superior


Saludos...

[matrix.si]

solo crea un archivo de texto llamado config.vfp

ahi pones la siguiente linea

screen = off

lo guardas

lo pones en la carpeta donde esta tu exe

y listo

 

2009/2/23 fcocibaeno <fcoci...@gmail.com>

[YuLSoft]

Personalmente tengo en mi prg principal esto:

SET TALK OFF &&No los resultados de los comandos
SET CENTURY ON&&activa el año de 4 digitos
SET DELETED ON
SET SAFETY OFF&&Especifica que no se muestre ningún cuadro de diálogo
antes de sobrescribir un archivo existente
SET DATE BRITISH
SET CLOCK ON&&muestra el reloj en la esquina superior derecha de la
ventana de vfp
*SET HOURS TO 24&&establece el formato de hora del relojo 12 ó 24
SET NOTIFY OFF
SET OPTIMIZE ON
CLOSE DATABASES
RELEASE ALL &&liber las variables y matrices de memoria

application.Visible=.f.
CLEAR


*** cargar módulo de entrada al sistema
PUBLIC cRuta1
cRuta1=SYS(5)+CURDIR()
SET DEFAULT TO (cRuta1)

SET PATH TO C:\exe,clases,class.bmp,graficos,icons,menu,prg
&&Especificamos los directorios a buscar

IF DRIVETYPE(SYS(5))<>3&&verificamos si se esta ejecutando dentro de
un disco duro local
MESSAGEBOX("No se puede iniciar el programa en unidades" + CHR(13)+;
"diferentes a discos duros locales",;
16,"SGT 2008 Edición Profesional")
RETURN

ENDIF

**formulario de presentación
OPRESENTA = CREATEOBJECT("Presenta")
OPRESENTA.SHOW
INKEY(1)

OPRESENTA.TEXTO.CAPTION = "Un momento por favor..."
OPRESENTA.REFRESH
INKEY(1)

OPRESENTA.TEXTO.CAPTION = "Inicializando ..."
OPRESENTA.REFRESH
INKEY(1)

*SET PROCEDURE TO funciones.prg &&indicamos ke archivo de
procedimiento a abrir
*=DataRuta()&&aki creamos las tablas para las rutas y datos de la
empresa

OPRESENTA.TEXTO.CAPTION = "Comprobando fichero de rutas ..."
OPRESENTA.REFRESH
INKEY(1)

*** configurar entorno de trabajo
_screen.caption = "SGT 2008 Edición Profesional"&&"Sistema
Mantenimiento Almacén - " + ALLTRIM(xcia)
*_screen.icon = "icon.ico"
_screen.Picture ="fondo1.jpg"
_screen.windowstate = 2 && maximizar
_screen.AutoCenter = .T. &&centrado


*//////////////
SET MESSAGE TO "SGT 2008 Edición Profesional"
*///////////////
SET CLASSLIB TO miclase.vcx ADDITIVE &&Abre la biblioteca de clases
visuales .vcx sin cerrar ninguna abierta actualmente
_SCREEN.ADDPROPERTY('oToolbar', .F.)
_SCREEN.OTOOLBAR = CREATEOBJECT("bherramientas")
_SCREEN.OTOOLBAR.DOCK(0)&& .DOCK(1)
_SCREEN.OTOOLBAR.CAPTION = 'Herramientas'
_SCREEN.OTOOLBAR.SHOW
_SCREEN.OTOOLBAR.COMMAND1.SETFOCUS
*/////////////////////////

SET SYSMENU OFF&&Deshabilita el menu

OPRESENTA.TEXTO.CAPTION = "Inicializando barra de estado..."
OPRESENTA.REFRESH
INKEY(1)

DO variables
*Ejecutando el form login
OPRESENTA.RELEASE
*DO FORM login && registro de usuario

*//////forzamos al formulario para traerlo al primer plano
DECLARE Integer SetForegroundWindow IN WIN32API AS Activar Integer
nHwnd
DO FORM login
Activar(login.HWnd)


READ events
SET SYSMENU TO DEFAULT &&activa la configuración predeterminada de vfp

*//////////////
DEFINE CLASS Presenta as Form &&creamos una subclase presenta basada
en la clase Form
HEIGHT = 255
WIDTH = 356
SHOWWINDOW = 2
DOCREATE = .T.
AUTOCENTER = .T.
CAPTION = "SGT START"
ICON = "libro.ico"
BORDERSTYLE = 2
CLOSABLE = .T.
MAXBUTTON = .F.
MINBUTTON = .F.
MOVABLE = .F.
NAME = 'presenta'
TITLEBAR = 0
desktop=.t.
*Agregamos los objetos especificando sus valores y propiedades
ADD OBJECT IMGPRESENTA AS IMAGE WITH PICTURE = "logo_inicio2.jpg",
LEFT = 0, TOP = 0, NAME = "IMAGEN"
ADD OBJECT CONTENIDO1 AS Container WITH LEFT = 3, WIDTH = 351, HEIGHT
= 210, TOP = 3, BorderWidth = 3,SpecialEffect = 1, NAME =
"Container1", BACKSTYLE = 0
ADD OBJECT CONTENIDO2 AS Container WITH LEFT = 3, WIDTH = 351, HEIGHT
= 32, TOP =218, BorderWidth = 3,SpecialEffect = 1, NAME =
"Container2", BACKSTYLE = 0
ADD OBJECT TXTCARGASIST AS LABEL WITH CAPTION = "Cargando Sistema",
LEFT = 130, TOP = 174, NAME = "Label1", AUTOSIZE = .T., BACKSTYLE = 0,
FONTNAME = 'Tahoma', FONTBOLD = .F., FORECOLOR = RGB(0, 0, 0),
FontBold = .T., Alignment = 2
ADD OBJECT TXTESPERA AS LABEL WITH CAPTION = "Un momento por
favor...", LEFT = 130, TOP = 190, NAME = "Label2", AUTOSIZE = .T.,
BACKSTYLE = 0, FONTNAME = 'Tahoma', FONTBOLD = .F., FORECOLOR = RGB(0,
0, 0), FontBold = .T., Alignment = 2
ADD OBJECT TXTCARGA AS LABEL WITH CAPTION = "", LEFT = 130, TOP = 226,
NAME = "Texto", AUTOSIZE = .T., BACKSTYLE = 0, FONTNAME = 'Tahoma',
FONTBOLD = .F., FORECOLOR = RGB(0, 0, 0), FontBold = .T., Alignment =
2
ADD OBJECT TXTNOMBRE AS LABEL WITH CAPTION = "", LEFT = 1, WIDTH =
399, TOP = 100, ALIGNMENT = 2, NAME = "NomEmp", AUTOSIZE = .T.,
BACKSTYLE = 0, FONTNAME = 'Tahoma', FONTBOLD = .T., FONTSIZE = 11,
FORECOLOR = RGB(0, 0, 128)


*--------------
PROCEDURE INIT
SYS(2002)&&Desactivamos el punto de inserción
THIS.REFRESH
ENDPROC
*-----------
PROCEDURE DESTROY
SYS(2002,1)&&activa el punto de inserción
ENDPROC
ENDDEFINE

**************
Salu2s