Oracle Forms Developer – Form Builder Reference, Volume 1

172
*/
DECLARE
curform VARCHAR2(40);
blkname VARCHAR2(40);
BEGIN
curform := :System.Current_Form;
blkname := Get_Form_Property(curform,FIRST_BLOCK);
END;
Example 2
/*
** Built-in: GET_FORM_PROPERTY
** Example: Evaluate the current setting of the
** Validate property.
*/
BEGIN
IF Get_Form_Property(’curform’, VALIDATION) = ’FALSE’
THEN
Message (’Form currently has Validation turned OFF’);
END IF;
END;