Power Builder - Objetos Dinamicos

Compañeros les envio el source de una ventana en la cual hay un ejemplo de Objetos dinamicos que realice.

Us Saludo
MasterBrain

lx=1500
ly = 300

For i = 1 to 2
btnCm[i] = Create CommandButton
Parent.OpenUserObject(btnCm[i] )
btnCm[i].x = x
btnCm[i].y = ly
btnCm[i].width = 402
btnCm[i].height = 128
btnCm[i].taborder = 80
btnCm[i].bringtotop = true
btnCm[i].textsize = -10
btnCm[i].weight = 400
btnCm[i].fontcharset = ansi!
btnCm[i].fontpitch = variable!
btnCm[i].fontfamily = roman!
btnCm[i].facename = "Bookman Old Style"
btnCm[i].text = "Crear "+ String(i)
lx +=300
ly +=200
Next
end event

event clicked;Int i, lx,ly,iCurrent
lx =983
ly = 344
For i =1 to 2
txtTmp[i] = Create SingleLineEdit
Parent.OpenUserObject(txtTmp[i])
txtTmp[i].x = X
//btnCm[i] = lx + 200
txtTmp[i].y = ly
txtTmp[i].width = 402
txtTmp[i].height = 128
txtTmp[i].visible = true
txtTmp[i].text = "Hola Mundo "+String (i)
txtTmp[i].taborder = 100
txtTmp[i].bringtotop = true
txtTmp[i].textsize = -10
txtTmp[i].weight = 400
txtTmp[i].fontcharset = ansi!
txtTmp[i].fontpitch = variable!
txtTmp[i].fontfamily = roman!
txtTmp[i].facename = "Bookman Old Style"
txtTmp[i].textcolor = 33554432
txtTmp[i].borderstyle = stylelowered!
lx += 150
ly += 200
Next
/*
Aquie encontramos el Source de una ventana
la cual tiene uno objetos botonos y dentro
de ellos encontraremos codigo para crear
objetos dinamicamente cabe resaltar que los
objetos que se estan creando en el ejemplo
son objetos propios de powerbuilder pero usted
puede crear objetos personalizados con codigo y
atributos para pasar parametros y reacciones a eventos
y otras situaciones similares.
MasterBrain 10-Sep-2004
*/
end event

Bueno.... una cosa más, ¿como hago para incluir en los objetos que creo dinamicamente un evento concreto?, por ejemplo quiero crear un objeto statictext y en su evento click quiero que habra una ventana.

Gracias de antemano.

//Varibles de Instancia de la Ventana
type variables
SingleLineEdit txtTmp[]
CommandButton btnCm[]
end variables

Bueno puedes heredar de una clase Standar Visual, traes el StaticText y personalizas un evento el cual recibira un parametro o creas eventos de usuario que reciban valores de parametro o funciones que reciban valores por parametro, alli encontraras forma de tener un evento ,.......

Un Saludo
MasterBrain

medianamente dinamico , pero si lo que quieres es escribir un evento 100 % dinamico osea que en tiempo de ejecucion el cree el evento y ejecute algo, realmente no lo conozco; en tecnologia .net con el FrameWork se llamaria Code Doom y en PB no se si existe esto, ya que lo que hace es que el CLR y el JIT ellos si pueden interpretar codigo dinamico porque ellos son los que hacen crean MSIL y lo que hacen es enviar de cualquier lenguaje soportado para que lo convierta y pueda ser interpretado.

Un Saludo MasterBrain

Herede de la clase Static Text , cree una variable de instancia publica de tipo window , cree una funcion que le asigne por valor o por referencia depende de la necesidad la ventana correspondiente a la variable local.