Кнопка и надпись без окна
На самом деле конечно окно есть, просто оно прозрачно. В итоге кнопка и надпись оказываются как бы "сиротами"
Code
#Include "window9.bi"
' буфер , принимающий сообщения
Dim As Integer iEvent
' хендл окна
Dim As HWND hWin
' Создаем окно без рамки
'и с возможной прозрачностью
hWin = OpenWindow(_
"", 0, 0, 300, 180,_
WS_POPUP Or WS_VISIBLE,_
WS_EX_LAYERED _
)
' окно поверх всех окон
SetWindowTop(_
hWin,1 _
)
' окно по центру
CenterWindow(_
hWin _
)
' ставим цвет окна
WindowColor(_
hWin,&h1 _
)
' ставим цвет прозрачных пикселов
SetLayeredWindowAttributes(_
hWin,&h1,0,1 _
)
' текстовый гаджет - надпись
TextGadget (_
1, 6, 2, 220, 20,_
"Для выхода нажать на кнопку",_
SS_CENTER _
)
' Кнопка
ButtonGadget (_
2, 86, 30, 50, 20,_
"Выход" _
)
' прозрачный фон, но
' непрозрачный текст
SetGadgetColor(_
1, &h1 ,&hff,3 _
)
' цикл отлова событий
Do
iEvent = WaitEvent
If iEvent = eventgadget Then
Exit Do
EndIf
Loop