Kbase P71011: How to create a Dialog box in 4GL?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
3/8/2004 |
|
Status: Unverified
GOAL:
How to create a Dialog box in 4GL?
FIX:
The following sample how to code a DialogBox in 4GL:
DEFINE BUTTON btnOK AUTO-GO
LABEL "OK".
DEFINE BUTTON btnCancel AUTO-END-KEY
LABEL "Cancel".
DEFINE FRAME fDialog
btnOK AT ROW 8 COL 12
SPACE(4)
btnCancel
WITH VIEW-AS DIALOG-BOX SIZE 40 BY 10
THREE-D
DEFAULT-BUTTON btnOK CANCEL-BUTTON btnCancel
TITLE "MessageBox" .
ENABLE btnOK btnCancel WITH FRAME fDialog.
VIEW FRAME fDialog.
WAIT-FOR CLOSE OF FRAME fDialog.