Página 1 de 1
How will be realized connection in red lines?
Publicado: Vie Feb 18, 2005 10:34 am
por Vladimir Miholic
Hello !
As in attachment!
Attached files Diagram1.html (554 B)Â Diagram2.html (554 B)Â
How will be realized connection in red lines?
Publicado: Vie Feb 18, 2005 11:07 am
por jfgimenez
Vladimir,
In Form1, set the event OnClose to:
METHOD Form1Close( oSender )
IF .NOT. MsgYesNo( "Exit?" )
RETURN .F. // No exit
ENDIF
RETURN Nil
TO launch Form2 do:
WITH OBJECT TForm2():New( Self )
IF :ShowModal() == mrOK
// Do whatever you want
ENDIF
END
and in Form2, set the following properties:
- Ok button:
lDefalult := .T.
nModalResult := mrOK
- Cancel button
lCancel := .T.
nModalResult := mrCANCEL
To move among controls using VK_RETURN, simply set Application:lUseReturn := .T. at the beggining of your app.
--
Regards,
Jose F. Gimenez
--
How will be realized connection in red lines?
Publicado: Vie Feb 18, 2005 11:07 am
por jfgimenez
Vladimir,
In Form1, set the event OnClose to:
METHOD Form1Close( oSender )
IF .NOT. MsgYesNo( "Exit?" )
RETURN .F. // No exit
ENDIF
RETURN Nil
TO launch Form2 do:
WITH OBJECT TForm2():New( Self )
IF :ShowModal() == mrOK
// Do whatever you want
ENDIF
END
and in Form2, set the following properties:
- Ok button:
lDefalult := .T.
nModalResult := mrOK
- Cancel button
lCancel := .T.
nModalResult := mrCANCEL
To move among controls using VK_RETURN, simply set Application:lUseReturn := .T. at the beggining of your app.
--
Regards,
Jose F. Gimenez
--