押されたボタンのの名前を含む結果
PRIM_WEB.MessageBoxクラス (PRIM_WEB.MessageBox) のメンバ
データタイプ - 列挙
Result プロパティは、メッセージボックスを閉じるために押されたボタンの名前です。
メッセージボックスはモーダルであるように見えますが、メッセージボックスが表示されたらランタイムが続行されます。したがって、結果をメッセージボックスインスタンスのプロパティとして格納する必要があります。
\\
この例では、メッセージボックスに \[はい\] または \[いいえ\] オプションが表示されます。
\\
ボタンは結果で更新されます。
\\
Begin_Com Role(*EXTENDS #PRIM_WEB)
\\
Define_Com Class(#prim_web.messageBox) Name(#MessageBox) Caption('Continue?') Buttons(YesNo) Image(Question)
\\
Define_Com Class(#PRIM_PHBN) Name(#Button) Caption('Continue?') Displayposition(1) Left(154) Parent(#COM_OWNER) Tabposition(1) Top(53)
\\
Evtroutine Handling(#Button.Click)
\\
#MessageBox.Show
\\
Endroutine
\\
Evtroutine Handling(#MessageBox.Closed)
\\
#Button.Caption := #MessageBox.Result
\\
Endroutine
\\
End_Com |