この例では、フォームをモーダルで呼び出し、呼び出し側のフォームにモーダル・フォームの押されたボタンを通知する方法を説明します。
モーダルで呼び出されるサンプル・フォームには、ボタン1とボタン2の2つのボタンがあります。
ボタン1のModalResult値は、Yesに設定され、ボタン2のModalResult値はNoに設定されます。
どちらかのボタンがクリックされると、ModalResultはフォームを閉じるNone以外の値に設定されるので、2つのボタンのイベント・ルーチンはフォームには含まれません。
他のフォームを呼び出すフォームには、他のフォームを呼び出すためのボタンがあります。呼び出されたフォームを閉じるためにクリックされたボタンを示す2つのラジオ・ボタンがあります。
フォームは、このフォーム内で呼び出されます。このためには、モーダル・フォームを、呼び出すフォームにドラッグ・アンド・ドロップします。
呼び出すフォームのモーダル・フォーム実行ボタンのClickイベントには、呼び出されたフォームから返されたModalResult値に従ってラジオ・ボタンを設定するロジックが含まれます。呼び出されたフォームが閉じられると、ModalResult値が返されます。
EVTROUTINE HANDLING(#PHBN_1.Click)
*Invoke #MForm modally
invoke #MForm.ShowModalForm
*Test the returned ModalResult
IF COND('#Mform.ModalResult *eq Yes')
set com(#RDBN_1) ButtonChecked(True)
else
set com(#RDBN_2) ButtonChecked(True)
endif
ENDROUTINE
両方のフォームを保存し、コンパイルします。#INVFORMフォームを実行します。モーダル・フォーム実行ボタンがクリックされると、#MFORMが表示されます。いずれかのボタンを使用して#MFORMが閉じられ、#INVFORMが表示されるとクリックされたボタンが表示されます。
プッシュボタンだけが、設計時のModalResultプロパティを持ちます。ただし、プログラムでフォームのModalResultを他のコンポーネントの基づいて設定できます。以下のコードでは、フォームが閉じられるときにラジオ・ボタン#RDBN_1がチェックされるとModalResultはYesに割り当てられ、ラジオ・ボタン#RDBN_2がチェックされるとModalResultはNoに割り当てられます。
EVTROUTINE HANDLING(#RDBN_1.Click)
Set Com(#Com_Owner) ModalResult(Yes)
ENDROUTINE
EVTROUTINE HANDLING(#RDBN_2.Click)
Set Com(#Com_Owner) ModalResult(No)
ENDROUTINE
