dynamic button and function in trigger

kartikeya.sharm

New Member
hi all,

/* how to call a function in dynamic button's choose*/

DEFINE VARIABLE button1 AS WIDGET-HANDLE.
DEFINE FRAME frm WITH SIZE 20 BY 10.

FUNCTION IP_SEL RETURNS CHAR () :
MESSAGE "IN SEL" VIEW-AS ALERT-BOX INFO BUTTONS OK.
RETURN "".
END FUNCTION.

PROCEDURE proc:
CREATE BUTTON button1
ASSIGN
X = 20
Y = 20
FRAME = FRAME frm:HANDLE
LABEL = "SelecT"
SENSITIVE = YES
TRIGGERS:
ON CHOOSE IP_SEL().

END TRIGGERS.
END PROCEDURE.

RUN proc.
ENABLE ALL WITH FRAME frm.
WAIT-FOR CLOSE OF CURRENT-WINDOW.
 
DEFINE VARIABLE button1 AS WIDGET-HANDLE.
DEFINE FRAME frm WITH SIZE 20 BY 10.
FUNCTION IP_SEL RETURNS CHAR () :
MESSAGE "IN SEL" VIEW-AS ALERT-BOX INFO BUTTONS OK.
RETURN "".
END FUNCTION.
PROCEDURE proc:
CREATE BUTTON button1
ASSIGN
X = 20
Y = 20
FRAME = FRAME frm:HANDLE
LABEL = "SelecT"
SENSITIVE = YES
TRIGGERS:
ON CHOOSE IP_SEL().
END TRIGGERS.
END PROCEDURE.

RUN proc.
ON 'choose':U OF button1
DO:
MESSAGE 'test'
VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.
ENABLE ALL WITH FRAME frm.
WAIT-FOR CLOSE OF CURRENT-WINDOW.
 
Back
Top