Function WaitEvent() As Long
Возвращает произошедшее событие. В отличии от WindowEvent эта функция ожидает событие, замораживая цикл и при этом не загружает процессор при ожидании.
нет
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
End
Case EventGadget
Select Case EventNumber
Case 1
MessBox("","это кнопка")
Case 2
MessBox("","это текстовый гаджет")
End Select
End Select
Loop
Created with the Personal Edition of HelpNDoc: Full featured EPub generator