passing parameter to form's property

[koklimabc]

Dear all,

I've create a property to assign it as user-defined form and needed to pass parameters to its own class for later processing after this property (assigned as a form) is called.How should i do? By the way,I'm not using 'do form' methods.

Coding in .PRG file
define class btn_ret as CommandButton
procedure click
for each frm_ in _screen.forms
if alltrim(frm_.name) == "MAIN"

local vl_height,vl_width,vl_result
vl_height = frm_.height/2
vl_width = frm_.width/2
frm_.addproperty("retfrm")
frm_.retfrm = createobject("returnfrm")
frm_.retfrm.show()
frm_.retfrm.para1 = "test" ==>Any suggestion is it correct?
frm_.retfrm.move(vl_width-(frm_.retfrm.width/2),;
vl_height-(frm_.retfrm.height/2))
endif
endfor
endpro

define class returnfrm as form
caption = "called Form"
height = 215
alwaysontop = .t.
visible = .t.
movable = .f.

procedure init
LPARAMETERS para1
? para1 =>Suppose this line attempt to accept parameter from caller.Adapt any other good way if possible.
enddefine

 

[vgulielmus]

The parameters are passed in createobject() command
frm_.retfrm = createobject("returnfrm","test")

Respectfully,
Vilhelm-Ion Praisach
Resita, Romania

 

[Olaf Doschke]

As simple as that, in CREATEOBJECT() all parameters following the class name are passed to the form class init. You nee LPARAMETERS there to receive the parameters.

Bye, Olaf.