Re: Forms 4.0.12 & create_timer built-in

From: Msys Inc <msys_at_delphi.com>
Date: Mon, 18 Apr 94 19:47:46 -0500
Message-ID: <Z45Nzya.msys_at_delphi.com>

Example of using Timers
(which works for us)

This example creates a 10 minute timer. If there is no terminal activity for 10 minutes, the form terminates  

1. Create the timer eg in pre-form trigger

	declare
	tm_id Timer;
	begin
		tm_id = Find_Timer('My_Timer');
		if Id_Null(tm_id) then /* New */
			tm_id = Create_Timer('My_Timer',
				600000,	/* 10 minutes */
				No_Repeat);
		
		end if;
	end;
 
 
2. Create the When_Timer_Expired trigger
	declare
	tm_name varchar2(40);
	begin
		tm_name=Get_Application_Property
			(Timer, Name);
		if tm_name='My_Timer' then
			exit_form(no_validate);
		end if;
	end;
 
 
---------------------------------------------------------------------

MSys Inc, The Oracle Consultants (contracting and off-site development) 2241 Wrightsville Ave, Suite D, Wilmington NC-28403
(910)-763-7183

---

Received on Tue Apr 19 1994 - 02:47:46 CEST