ユーザーにフォームを終了するかどうかを確認するオプションが必要な場合は、CloseFormQueryメソッドとCloseQueryイベントを使用します。

例には、メイン・フォームとフォームが閉じられるときに表示されるダイアログがあります。メイン・フォームには、OKとキャンセルの2つのボタンがあります。

キャンセルボタンは、CloseFormQueryメソッドを使用してフォームを閉じます。

     Invoke #Com_Owner.CloseFormQuery

ボタンのほかに、フォームにはダイアログ・フォームがあります。

ダイアログ・フォームには、3つのボタンがあります。


 

3つのボタンすべてにフォームを閉じるClickイベント・ルーチンがあります。

     EVTROUTINE HANDLING(#BTN_CLOSE.Click)
        Invoke #Com_Owner.CloseForm 
     ENDROUTINE  
 
     EVTROUTINE HANDLING(#BTN_CANCEL.Click)
        Invoke #Com_Owner.CloseForm
     ENDROUTINE  
 
     EVTROUTINE HANDLING(#BTN_MIN.Click)
        Invoke #Com_Owner.CloseForm
     ENDROUTINE

その他に、それぞれのModalResult値があり、以下のように値が設定されます。

#BTN_CLOSE

Cancel

#BTN_CANCEL

No

#BTN_MIN

OK

キャンセルボタンのイベント・ルーチンのほかに、メイン・フォームにはCloseQueryイベントのイベント・ルーチンがあります。このイベントでは、ダイアログ・フォームを起動し、ダイアログ・フォームを閉じるときにModalResultを受け取ります。それから返されたModalResultの値を調べ、それにしたがってアクションを実行します。

フォームの終了を続行するかどうかは、Continueパラメータで使用される#Optionフィールドの値で決定します。

     EvtRoutine Handling(#Com_Owner.CloseQuery) Continue(#Option)
        Invoke #Dialog.ShowModalForm  
 
        Define #QResult Reffld(#Std_Texts)
        Change #QResult #Dialog.modalResult 
 
        Case #QResult
        When '= No'
           Invoke #Com_Owner.RestoreForm
           Set #Option Value(FALSE)
        When '= OK'
           Invoke #Com_Owner.MinimizeForm
           Set #Option Value(FALSE)
        OtherWise  
           Set #Option Value(TRUE)
        EndCase  
     EndRoutine

caseステートメントでは、ダイアログ・フォームから返されるModalResult値がNo(キャンセルボタンに割り当てられる)の場合にメイン・フォームを元の大きさに戻し、返された値がOK(最小化ボタンに割り当てられる)の場合は、メイン・フォームを最小化します。どちらの場合も、ContinueパラメータはFalseに設定されます。これ以外のModalResult値が返された場合は、フォームは閉じられます。

  • No labels