Oracle Forms Developer – Form Builder Reference, Volume 1

Three triggers are used in this example, a When-Mouse-Click trigger, a When-Timer-Expired trigger,
and a When-Mouse-DoubleClick trigger.
/*
** trigger: When-Mouse-Click
** Example: When the operator clicks the mouse, create a timer
** that will expire within .5 seconds.
*/
512
DECLARE
timer_id TIMER;
timer_duration NUMBER(5) := 500;
BEGIN
timer_id := Create_Timer(’doubleclick_timer’, timer_duration,
NO_REPEAT);
END;
/*
** trigger: When-Timer-Expired
** Example: When the timer expires display the online help
** window if the operator has double-clicked the
mouse
** within .5 seconds, otherwise display the product
** information window.
*/
BEGIN
IF :Global.double_click_flag = ’TRUE’ THEN
Show_Window(’online_help’);
:Global.double_click := ’FALSE’;
ELSE
Show_Window(’product_information’);
END IF;
END;
/*
** trigger: When-Mouse-DoubleClick
** Example: If the operator double-clicks the mouse, set a
** flag that indicates that a double-click event
** occurred.
*/
BEGIN
:Global.double_click_flag := ’TRUE’;
END;