In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

ME enrede

Foro público de Xailer en español
Responder
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

ME enrede

Mensaje por zeasoftware »

Kiero tomar un valor de un arreglo ke pertenece a tForm, en la cual hay un
tGroup ke contiene tComboBox, oEdit,
Al cambiar el valor del tCombo, kiero tomar el valor de ese array en la
posicion ke seleccione del tCombo, lo he intentado asi:
WITH OBJECT ::oCbx := TComboBox():New( ::aGroups[nGroup][1] )
//[nGroup]
:SetBounds( 100, 30, 360, 125 )
:aItems := aItems
:nIndex := 1
:cTooltip := "Artículos de Linea"
:nStyle := csDROPDOWNLIST
:OnChange := {|Self| ::CalcMonto( ::oPrecios:aItems[
::oCbx:nIndex ] ) }
//:OnChange := {|oSender| ::CalcMonto( ::oPrecios:aItems[
::oCbx:nIndex ] ) }
//:OnChange := {|| ::CalcMonto( ::aPrecios[ ::oCbx:nIndex ] ) }
:Create()
END
Pero me marca error, aunke estan como comentario pero asi los he intentado.
Gracias
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5706
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

ME enrede

Mensaje por jfgimenez »

Ramón,
> :OnChange := {|Self| ::CalcMonto( ::oPrecios:aItems[
> ::oCbx:nIndex ] ) }
El parámetro que se recibe en el evento es oSender, no Self.
De todos modos, no has dicho qué error te aparece. Por favor, intenta
siempre dar la mayor información posible del problema que tengas, de lo
contrario no podemos saber qué te ocurre, y casi seguro que no podremos
solucionarlo.
--
Un saludo,
José F. Giménez
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Responder