小ワザ/ウィンドウクローズ

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24

 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
!
 
 
 
 
 
 

; 基本への回帰
 
    repeat 10
        pos cnt*64, 0
        button "窓"+(cnt+2), *CreateWindow
        usewnd(cnt) = 0
    loop
    onexit *DestroyWindow    ; 1)ウィンドウを"閉じる"とonexitで指定したラベルへ飛びます。
    stop
 
 *CreateWindow
    btn = stat
    if usewnd(btn)=0{
        id = btn+2
        screen id, 160, 120
        title "窓"+id
        usewnd(btn) = 1
    }
    stop
 
 *DestroyWindow
    if wparam=0: end        ; 2)wparamには閉じたウィンドウのIDが入っています。
    gsel wparam, -1        ; 3)ウィンドウを非表示にすることで"閉じた"ように見えます。
    usewnd(wparam-2) = 0