Pilo,
Me tienes que mandar el proyecto completo con la opción de exportar que
incluye el propio IDE.
No obstante si tu problema ES QUE SE CIERRA EL PROPIO FORMULARIO que
contiene el botón, supongo que será porque has puesto la propiedad
nModalResult del botón a algo distinto de mrNONE.
Saludos,
"pilo" <
srmpilo@hotmail.com> escribió en el mensaje
news:42c3dc9a$[email=
1@ozsrvnegro.ozlan.local...]
1@ozsrvnegro.ozlan.local...[/email]
> /*
> * Proyecto: CLAVES
> * Fichero: CLAVES1.prg
> * Descripción:
> * Autor:
> * Fecha: 12/06/2005
> */
>
> #include "Xailer.ch"
>
> CLASS TFCLAVES1 FROM TForm
>
> COMPONENT oImage1
> COMPONENT oToolBar1
> COMPONENT oEdit1
> COMPONENT oEdit2
> COMPONENT oButton1
>
> METHOD CreateForm()
> METHOD Edit1Create( oSender )
> METHOD Edit2Create( oSender )
> METHOD Button1Click( oSender )
> METHOD FormInitialize( oSender )
> ENDCLASS
>
> #include "CLAVES1.xfm"
>
> //---------------------------------------------------------- ----------------
> ----
>
> METHOD FormInitialize( oSender ) CLASS TFCLAVES1
> local oMenu, oSub, oserial, clave2, clave3
> oserial:=hb_numtohex( volserial("c:"))
> clave2 :=HB_Crypt( oserial, "SRMLIBRO" )
> clave3 :=HB_Decrypt( clave2, "SRMLIBRO" )
>
> MENU oMenu
> MENUITEM "&Archivos"
> MENU
> MENUITEM "&Distribuidores" ACTION TFdistribuidor1():New(
> Self ):ShowModal()
> MENUITEM "&Usuarios" ACTION TFUSUARIOS1():New(
> Self ):ShowModal()
> MENUITEM "&Series Claves"
> SEPARATOR
> MENUITEM "&Salir" ACTION ::Close()
> ENDMENU
> MENUITEM "&Claves"
> MENU
> MENUITEM "&Claves"
> MENUITEM "&Alta clave"
> MENUITEM "&Modifica Clave"
> MENUITEM "&Baja clave"
> ENDMENU
> MENUITEM "Windows"
> MENU
> MENUITEM "&Mosaic"
> MENUITEM "&Cascade"
> MENUITEM "&Next Window" + TAB + "Ctrl+F6"
> SEPARATOR
> MENUITEM "Close All"
> MENUITEM clave2
> MENUITEM clave3
> MENUITEM oserial
> ENDMENU
> ENDMENU
>
> ::oMenu := oMenu
>
> RETURN Nil
>
> //---------------------------------------------------------- ----------------
> ----
>
> METHOD Edit1Create( oSender ) CLASS TFCLAVES1
>
> RETURN Nil
>
> //---------------------------------------------------------- ----------------
> ----
>
> METHOD Edit2Create( oSender ) CLASS TFCLAVES1
>
> RETURN Nil
>
> //---------------------------------------------------------- ----------------
> ----
>
> METHOD Button1Click( oSender ) CLASS TFCLAVES1
> // RUN "c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe"
> // __RUN("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
> WinExec("c:winrarwinrar.exe a -v1200 -vd -R0 -x*.db* pepe")
> ::SetFocus()
>
> RETURN Nil
>
> //---------------------------------------------------------- ----------------
> ----
> cuando termina de ejecutarse winexec()
> se cierra el programa claves que tienes a continuacion
> y lo que quiero es que vuelva a el formulario que llamo el Boton.
>
>
>