Bruno:
me estoy haciendo ya la libreria, y al ejecutar el codigo que se debe iniciar al comienzo del programa a traves de una init procedure me da un error de gpf.Se me inicializa bien,llega hasta messagedlg pero hay da el error...
te pongo el codigo de la procedure init:
ANNOUNCE ESUNADEMO
Init Procedure EsunaDemo
MsgDlg2( "Ventana que se debe cerrar al cabo de 5 segundos", 5)
Return
y la funcion msgdlg2 está en otro modulo, con este codigo:
#include "cabecera.ch"
#include "Gui.ch"
#define mtCustom 4
Function MsgDlg2( cMessage, nSegundos )
Local nContador1, nContador2 , oDlg
nContador1 := TimeToSec(Time())
oDlg:= MessageDlg(cMessage, mtCustom )
Do While .t.
nContador2 := TimeToSec(Time())
If (nContador2-nContador1) > nSegundos
Exit
Endif
Enddo
oDlg:Destroy()
Return NIL
_________________ (C) Josu Udaondo...el fiera de clipper 5
Bilbao 2006
|