#define EventClose &H10
Константа. Используется для определения события закрытия окна
нет
Windows , Linux
#Include "window9.bi"
OpenWindow("",10,10,200,200)
ButtonGadget(1,10,10,100,20)
TextGadget(2,10,50,100,20,"Текст")
Do
   Var event=WaitEvent
   Select Case event
      Case EventClose
         MessBox("","Произошло событие EventClose"): End
      Case EventGadget
         Select Case EventNumber
            Case 1
               MessBox("","это кнопка")
            Case 2
               MessBox("","это текстовый гаджет")
         End Select
   End Select
Loop
Created with the Personal Edition of HelpNDoc: Generate EPub eBooks with ease