Qué tal danielcamayo
!
Cuestión de gustos....
Con el permiso del maestro te comento...
Yo uso la clase con Desktop=.T. con el formulario "frmcaltop"
Tendrías que modificar la clase.
En el botón "cmdcal" pasar la posición al formulario, modificar la siguiente línea:
IF THIS.DESKTOP
*loLMCal = NEWOBJECT("frmCalTop",THIS.CLASSLIBRARY,NULL,EVALUATE(lcTxtValor))
loLMCal = NEWOBJECT("frmCalTop",THIS.CLASSLIBRARY,NULL,EVALUATE(lcTxtValor),This.Top,This.Left)
....
.....
En el formulario
"frmcaltop" cambiar "Autocenter=.f." y en el Init modificar/incluir las siguientes líneas:
*LPARAMETERS td
LPARAMETERS td,lcTop,lcLeft
.....
.....
.....
This.Top=lcTop+100&&ajustar valor
This.Left=lcLeft+300
&&ajustar valor
THIS._Refresh()
Espero te funcione
Suerte
zarlu
Chetumal, Quintana Roo, Mexico