Clipper/FiveWin - Una facilita...

nose como poder recargar un objeto. es decir... por ejemplo q una caja d texto al abrirse el formulario este vacia... y luego al darle a un boton se cargue con el contenido d otra caja d texto q este en el formulario

aki esta lo q ice yo... me podeis decir mis errores y como puedo solucionarlo:

function showdialog()

function showdialog

local odlg
local cBoton,ctexta,ctextb

DEFINE DIALOG odlg RESOURCE "dialog"
REDEFINE BUTTON cBoton ID 300 OF oDlg ACTION devolver(odlg,ctextA,ctextB)
REDEFINE GET ctexta ID 200 of odlg
REDEFINE GET ctextb ID 200 of odlg

ACTIVATE dialog odlg centered
return nil

funciion devolver(odlg,ctexta,ctextb)

odlg:ctextb:caption(ctexta)

return nil

Tambien probe dentro d la funcion devolver el ctexta:=ctextb, o con return ctext... pero m parece q ninguna d las 3 cosas q hice se acercan... y mis manuales de ayuda son nefastos

gracias!!

Daniel, lo que tu quieres se hace de la siguiente manera:

funciion devolver(odlg,ctexta,ctextb)
Ctextb=Ctexta && ctextb toma el mismo valor que Ctexta
oCtextb:refresh() && refrescamos el objeto correspondiente a Ctextb
return

Te preguntarás como definir el objeto correspondiente a Ctextb?, muy facil: deberías haberlo especificado en el REDEFINE GET, es decir,

REDEFINE GET oCtextb var ctextb ID 200 of odlg

Te todas formas todo esto se simplifica mucho obviando la función devolver(). Quedaría algo así:

funct showdialog()
local odlg
local cBoton,ctexta,ctextb
DEFINE DIALOG odlg RESOURCE "dialog"
REDEFINE GET oCtexta var ctexta ID 200 of odlg
REDEFINE GET oCtextb var ctextb ID 201 of odlg
REDEFINE BUTTON cBoton ID 300 OF oDlg ACTION (textb:=ctexta,;
oCtextb:refresh())
ACTIVATE dialog odlg centered
return nil

Esto es todo, Suerte.
LORENZO

Mil gracias!!!