WindowEvent

WindowEvent()

Возвращает произошедшее событие или нулевое значение. При этом цикл в котором находится эта функция, продолжает работать. Если события никакого не происходит, функция возвращает 0. Функция загружает процессор. Это важно помнить, если необходимо экономить ресурсы. Для того, чтобы освободить процессор от загрузки на участках ожидания событий, можно использовать в цикле макрос sleepW9()  или использовать ожидающую событие функцию WaitEvent.

Пример:

#Include "window9.bi"

OpenWindow("",10,10,200,200)
ButtonGadget(1,10,10,100,20)
TextGadget(2,10,50,100,20,"текст")

Do
 Var event=WindowEvent
 SleepW9(100)
 Select Case event
  Case EventClose
   End
  Case EventGadget
   Select Case EventNumber
    Case 1
     MessBox("","это кнопка")
    Case 2
     MessBox("","это текстовый гаджет")
   End Select  
 End Select
Loop

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Easily create PDF Help documents