sub SetWindowTop(ByVal hWin As HWND, ByVal state As Integer)
Функция устанавливает окно поверх других окон
hWin - хендл окна
state - флаг, определяющий установку, может быть:
1 - поверх всех окон
0 - обычное состояние окна
Windows , Linux
#Include "window9.bi"
Dim As Integer event
var hwnd=OpenWindow("Окно 1",20,15,100,100)
SetWindowTop(hwnd,1)
Do
event=WaitEvent()
If Event=EventClose Then End
Loop
Created with the Personal Edition of HelpNDoc: Single source CHM, PDF, DOC and HTML Help creation