EventHwnd

Синтаксис

Function EventHwnd() As HWND

Описание

Возвращает хендл окна, в котором произошло событие

Параметры

нет

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As hwnd hwnd,hwnd2
hwnd=OpenWindow("",10,10,200,200)
ButtonGadget(1,10,10,100,20)
TextGadget(2,10,50,100,20,"Текст")
hwnd2=OpenWindow("",100,100,200,200)
Do
  Var event=WaitEvent
  Select Case event
     Case EventClose
        If EventHwnd=hwnd Then
           End
        ElseIf EventHwnd=hwnd2 Then
           Close_Window(hwnd2)
        EndIf
     Case EventGadget
        Select Case EventNumber
           Case 1
              MessBox("","Это кнопка")
           Case 2
              MessBox("","Это текстовый гаджет")
        End Select
  End Select
Loop

Created with the Personal Edition of HelpNDoc: Easily create iPhone documentation