Dear all,
I need someone to help me where I press "F5" to invoke child form and then i click back to one control, the child form was just disappeared. How could i possible to make the child form to be stayed in screen whenever i'd return back to parent form's control.
Coding to invoke child form by pressing "F5"
LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode = -4
thisform.page_.pages(thisform.page_.activepage).addproperty("frmlocinv")
thisform.page_.pages(thisform.page_.activepage).frmlocinv = createobject("frmpurc")
thisform.page_.pages(thisform.page_.activepage).frmlocinv.show()
thisform.page_.pages(thisform.page_.activepage).frmlocinv.move(objtoclient(this,2)-this.width,;
objtoclient(this,1)+50)
endif
Coding for my custom child form
define class frmpurc as form
showwindow = 1
caption = "Search from purchase history"
name = "frmpurc"
procedure init
endpro
procedure destroy
clear events
endpro
enddefine
-I've atatched picture for more info in details.Appreciate Thankful to someone could help.
I need someone to help me where I press "F5" to invoke child form and then i click back to one control, the child form was just disappeared. How could i possible to make the child form to be stayed in screen whenever i'd return back to parent form's control.
Coding to invoke child form by pressing "F5"
LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode = -4
thisform.page_.pages(thisform.page_.activepage).addproperty("frmlocinv")
thisform.page_.pages(thisform.page_.activepage).frmlocinv = createobject("frmpurc")
thisform.page_.pages(thisform.page_.activepage).frmlocinv.show()
thisform.page_.pages(thisform.page_.activepage).frmlocinv.move(objtoclient(this,2)-this.width,;
objtoclient(this,1)+50)
endif
Coding for my custom child form
define class frmpurc as form
showwindow = 1
caption = "Search from purchase history"
name = "frmpurc"
procedure init
endpro
procedure destroy
clear events
endpro
enddefine
-I've atatched picture for more info in details.Appreciate Thankful to someone could help.