FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Asignaci贸n dinamica de accion en botones
Posts: 234
Joined: Tue Sep 01, 2009 07:55 AM
Asignaci贸n dinamica de accion en botones
Posted: Wed Mar 29, 2017 11:10 AM
Buenos d铆as:
Tengo que crear un dialogo con una serie de botones, el n煤mero de los mismos es diferente de unas ocasiones a otra, y los tengo creados desde recursos, esos tiene una unica acci贸n, que es la de cargar una variable con el valor que representa el prompt del bot贸n, y ponerla a su vez en un say. Pues esta es la que no acabo de conseguir
Code (fw): Select all Collapse
for i=1 to ultimo
聽 聽 聽 聽 redefine BUTTON aboton[i] id 1100+i of odlg prompt str(i,3,0) 聽ACTION {cres:=(::cCaption),ores:settext(cres)}
聽 聽 聽 聽 聽 聽 聽 
next i

As铆 es como lo hago, evidentemente no es la forma, pues me genera un error en tiempo de ejecuci贸n al no existir la variable self

Alguna idea, he buscado por el foro y no encuentro nada, pero me pareci贸 ver hace tiempo algo similar
Un saludo y gracias
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: Asignaci贸n dinamica de accion en botones
Posted: Wed Mar 29, 2017 12:04 PM

Un primer error es que la creacion de los botones no la haces en un metodo de la clase que contiene la data cCaption. O metes la creacion en un metodo de la clase o pasas el objeto como parametro y luego lo utilizas asi objPar:cCaption.

Posts: 234
Joined: Tue Sep 01, 2009 07:55 AM
Re: Asignaci贸n dinamica de accion en botones
Posted: Wed Mar 29, 2017 02:59 PM
Hmpaquito, gracias.
Supongo que si aplico tu soluci贸n, acabo con el mismo valor siempre, pues el valor que devolver铆a cualquier actio de cualquier boton ser铆a aboton[i]:ccaption, i si el 煤ltimo valor que tom贸 i era 76, pues en todos los botones devolver谩 76.
Lo que tengo que hacerlo he visto alguna vez en este foro, pero no lo encuentroes que el baction de cada boton sea diferente aunque generado de forma secuencial usando el mismo patron y ahi es donde no doy con la forma.
Muchas gracias
Jos茅 Luis
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Asignaci贸n dinamica de accion en botones
Posted: Wed Mar 29, 2017 03:05 PM
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 234
Joined: Tue Sep 01, 2009 07:55 AM
Re: Asignaci贸n dinamica de accion en botones
Posted: Wed Mar 29, 2017 03:19 PM

Antonio:
Muchas gracias, eso buscaba, pero cual es mi sorpresa que si pongo en el action del redefine del button esto cres:=str(::nid-1100,3,0)
me tira un error en ejecuci贸n diciendo que no existe la variable self.
Gracias.
Un saludo

Continue the discussion