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.
/* 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.