Fenster schließen

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
UserMessages $10
Def CloseDlg(1) (%umessage = $10) And (GetActiveWindow() = &(1))
Cls
Var dlg& = Create("Dialog",%hwnd,"Dialog",600,500,400,300)

While 1

    WaitInput

    If CloseDlg(%hwnd)

        Break

    ElseIf CloseDlg(dlg&)

        DestroyWindow(dlg&)

    EndIf

EndWhile

end