CloseQueryイベントはフォームを終了する前に実行されます |
フォーム (PRIM_FORM) のメンバ
名前 | タイプ | データタイプ | 記述 |
|---|---|---|---|
Continue | *Both | ブール値 | Continueパラメータはフォームを閉じるかどうかを確認するためのパラメータです。 |
SystemMenu アイコンを使用してフォームが閉じられると、 CloseQuery イベントが発生します。
明示的に CloseForm メソッドを使用すると、イベントは無視されます。これを確実に呼び出すには、 CloseFormQuery メソッドを使用します。
この例は、 CloseForm と CloseFormQuery の動作を示しています。
Function Options(*Direct)
Begin_Com Role(*EXTENDS #PRIM_form) Caption('CloseQuery') Height(211) Width(496) Clientwidth(480) Clientheight(172) Left(154) Top(210)
Define_Com Class(#PRIM_CKBX) Name(#CanClose) Caption('Check to let the form close when queried') Displayposition(1) Left(15) Marginleft(2) Parent(#COM_OWNER) Tabposition(1) Top(6) Width(266)
Define_Com Class(#PRIM_PHBN) Name(#CloseForm) Caption('CloseForm') Displayposition(2) Left(16) Parent(#COM_OWNER) Tabposition(2) Top(32) Width(161)
Define_Com Class(#PRIM_PHBN) Name(#CloseFormQuery) Caption('CloseFormQuery') Displayposition(3) Left(16) Parent(#COM_OWNER) Tabposition(3) Top(64) Width(161)
Evtroutine Handling(#Com_owner.CloseQuery) Continue(#Continue)
#Continue := (#CanClose.ButtonState = Checked)
Endroutine
Evtroutine Handling(#CloseForm.Click)
#Com_owner.CloseForm
Endroutine
Evtroutine Handling(#CloseFormQuery.Click)
#Com_owner.CloseFormQuery
Endroutine
End_Com