Page History
この例では、フォームをモーダルで呼び出し、呼び出し側のフォームにモーダル・フォームの押されたボタンを通知する方法を説明します。
モーダルで呼び出されるサンプル・フォームには、ボタン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