Calling another form from mainform (Apollo-talk) - Apollo

Another solution;

----
require 'phi'
include Phi
form = Form.new
btn = Button.new form
btn.top=100
btn.left=100
txt_main = Edit.new form
txt_main.top=25
txt_main.left=25

btn.caption = 'GetValue'

##def btn.on_click
btn.on_click = proc{
  lookupform = Form.new
  lookupform.width=150
  lookupform.height=100
  btn1 = Button.new lookupform
  txt_lookup = Edit.new lookupform
  txt_lookup.text="676"
  btn1.top=35
  btn1.caption = 'SendValue'

  btn1.modal_result = Phi::MR_OK  
  if lookupform.show_modal == Phi::MR_OK

    #-- according to the scope rule of blocks,
    # local variables outside the block can be refered.

    txt_main.text = txt_lookup.text
  end
  
}
##end

form.show
Phi.mainloop
----

Take_tk = KUMAGAI Hidetake

Apollo

[Apollo-talk] Calling another form from mainform