DisableWindow

Синтаксис

sub DisableWindow(ByVal hWin As HWND, ByVal state As Long)

Описание

Данная функция предоставляет возможность делать окно неактивным (активным). В linux делает неактивным только клиенскую область окна (то есть все размещенные на окне гаджеты). Окно продолжает принимать действия от пользователя для заголовка окна (maximize|minimize|close) , а также перетаскивание

Параметры

hwnd - хендл окна

state - флаг, может быть:
1 - неактивное окно
0 - активное окно

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As HWND hwnd,hwnd1
Dim As Long state
hwnd=OpenWindow("1",300,10,150,150)
EditorGadget(1,10,10,100,100,"editor")
hwnd1=OpenWindow("2",10,10,150,150)
ButtonGadget(2,10,10,130,25,"disable\enable")
Do
  var event=WaitEvent()
  If event=EventClose Then End
  If event=eventgadget Then
     If EventNumber()=2 Then
        state = state Xor 1
        DisableWindow(hwnd,state)
     endif
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: iPhone web sites made easy