Forms save message problem!

Question

Um working in forms 9i.
I have set SeprateFrame = True in the configuration file, so that the forms applet opens up in a new window.
Now there are two BROWSER windows...one, in which user types the URL of the Forms server and Second, in which the forms applet opens.
I can close the form without getting the default Forms "Do u want to save the ....?" message (by clicking the cross button on the APPLET inside the BROWSER)if there are any pending changes in the data block with a form level When_Window_Closed trigger using Exit_Form(No_Validate). But the problem starts when there are pending changes in the form and I directly press the cross button on the BROWSER which encloses the APPLET. I get the same annoying Forms message "Do u want to save?".
Could somobody tell me how to control the BROWSER window enclosing the APPLET, because all the forms triggers are related with forms only and one have no control over the BROWSER.
Please help.

Answer 1

hi
try this.
BEGIN
               /* ** Force validation to happen first */
               Enter;
               IF NOT Form_Success THEN
                    RAISE Form_Trigger_Failure;
               END IF;
               /* ** Commit if anything is changed */
               IF :System.Form_Status = 'CHANGED'
                    THEN
                    Commit_Form;
                    /* ** A successful commit operation sets Form_Status back ** to 'QUERY'. */
                    IF :System.Form_Status <> 'QUERY' THEN
                         Message('An error prevented your changes from being committed.');
                         Bell;
                         RAISE Form_Trigger_Failure;
                    END IF;
               END IF;     
:system.message_level := '10';
COMMIT_FORM;
:system.message_level := '0';
if
:system.form_status != 'CHANGED'
then
-- go_block('block');
else
Message ( 'Your entered data could not be saved. Please check the form.' );
Message ( ' ' );
end if;
end; -----
On-Message trigger (Form Level)
begin
if
abs ( message_code ) = 40400
then
clear_message;
bell;
message ( message_text, no_acknowledge );
else
message ( message_text );
end if;
end;
Sarah