Yo utilizo esta función. No sé si es lo que quieres:
--------------------------------------------//
// Actualizacion funcion FiveWin MsgGet
// . Añadiendo nAncho
// . Castellanizando
// . cBmpFile nombre File Bitmap
// . cIcon nombre Icon en recursos
// . cTitulo titulo de la ventana
// . cTexto Say del get
// . uVar nombre variable con @
// . nIzqdo coordenada izqda del get
// . nAncho ancho del get
/////////////////////////////////////////////////////////////////////////
function MsjGet ( cTitulo, cTexto, uVar, nIzqdo, nAncho, cPicture, cBmpFile, cIcon )
local oDlg, oBmp, uTemp := uVar, lOk := .f.
local nFila := 10, nCol := 20
DEFAULT nIzqdo := 4 // coordenada izquierda del get
DEFAULT nAncho := 120 // ancho del get
DEFAULT cTexto := '' // FECHA/NUMERO para anchos determinados
IF UPPER(SUBS(cTexto,1,5)) == "FECHA"
nIzqdo := 7.25
nAncho := 40
ENDIF
DEFINE DIALOG oDlg FROM nFila,nCol TO nFila + 9, nCol + 39.5 ;
TITLE cTitulo
IF !EMPTY(cTexto)
@ 1.0, 1 SAY cTexto
ENDI
IF EMPTY (cPicture)
@ 1.0, nIzqdo GET uTemp OF oDlg ;
SIZE nAncho, 12
ELSE
@ 1.0, nIzqdo GET uTemp PICTURE cPicture OF oDlg ;
SIZE nAncho, 12
ENDI
if ! Empty( cBmpFile )
@ 0.6, 1 BITMAP oBmp FILENAME cBmpFile SIZE 20, 20 NO BORDER OF oDlg
endif
if ! Empty( cIcon )
@ 0.6, 1 ICON oBmp RESOURCE cIcon OF oDlg
endif
@ 2.0, 5.0 BUTTON "&Aceptar" OF oDlg SIZE 35, 12 ;
ACTION ( oDlg:End(), lOk := .t. ) DEFAULT
@ 2.0, 15.5 BUTTON "&Cancelar" OF oDlg SIZE 35, 12 ;
ACTION ( oDlg:End(), lOk := .f. )
ACTIVATE DIALOG oDlg CENTERED ON INIT ;
(oDlg:lHelpIcon:=.f. )
if lOk
uVar := uTemp
endif
return lOk
