CLOSE WINDOW
CLOSE WINDOW {( window )}
| 引数 | 型 | 説明 | |
|---|---|---|---|
| window | Integer | → | ウィンドウ参照番号, または 省略した場合、カレントプロセスの最前面ウィンドウ |
このコマンドはスレッドセーフではないため、プリエンプティブなコードには使えません。
説明
CLOSE WINDOW はカレントプロセスでOpen window や Open form window コマンドで開かれたアクティブウィンドウを閉じます。カスタムウィンドウが開かれていない場合、CLOSE WINDOWは効果を持ちません (システムウィンドウは閉じられません)。CLOSE WINDOW はウィンドウ中でフォームがアクティブであるときに呼び出されても効力を持ちません。CLOSE WINDOWはOpen window や Open form window で開いたウィンドウの利用が終了したときに呼び出します。
Open windowやOpen form windowで事前に開いたウィンドウを閉じる際には、CLOSE WINDOWにウィンドウ参照番号を渡す必要はありません。CLOSE WINDOWは常にこれらのコマンドで開いた最後のウィンドウを閉じます。
WinRefには外部ウィンドウ参照番号を渡すことができます。この引数を渡すと指定した外部ウィンドウが閉じられます。外部ウィンドウに関する詳細はOpen external windowを参照してください。
例題
以下の例題はフォームウィンドウを開き、ADD RECORD コマンドでレコードを追加します。処理が終了したらCLOSE WINDOW でウィンドウを閉じます:
FORM SET INPUT([Employees];"Entry")
$winRef:=Open form window([Employees];"Entry")
Repeat
ADD RECORD([Employees]) //新規従業員レコードを追加
Until(OK=0) //キャンセルされるまでループ
CLOSE WINDOW //ウィンドウを閉じる