Архив форумов ЦИТФорума

[Kaplinale]

Подскажите пожалуйста, как сделать форму прозрачной (CBuilder)

[InStream]

Апи функции (код под вб), функции работают только под 2000/XP
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Public Const LWA_ALPHA = &H2
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000

Private Sub MixWindow(FormName As Form)

If Not isTransparent Then
isTransparent = True
Ret = GetWindowLong(FormName.hWnd, GWL_EXSTYLE)
DefRet=Ret 'точно не помню, но зачем-то было нужно
Ret = Ret Or WS_EX_LAYERED
SetWindowLong FormName.hWnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes FormName.hWnd, 0, 0, LWA_ALPHA 'делает окно полность прозрачным
For X = 0 To 255 Step 10 'Постепенно выводит окно из прозрачности (Микс), где Х уровень текущей прозрачности
SetLayeredWindowAttributes FormName.hWnd, 0, X, LWA_ALPHA
DoEvents
Next X
SetLayeredWindowAttributes FormName.hWnd, 0, 255, LWA_ALPHA
SetWindowLong FormName.hWnd, GWL_EXSTYLE, DefRet 'отменяет прозрачность и возвращает окно в исходное состояние

End If

End Sub

[Wladimir]

Form1->AlphaBlend = true;
Form1->AlphaBlendValue = число 0..255;

[Kaplinale]

Thanks всем

[Kaplinale]

Thanks всем

[Kaplinale]

Thanks всем

[Kaplinale]

[Kaplinale]

[Netron]

хм...а Вам обязательно делать её прозрачной? можь проще невидимой или не доступной?

[Kaplinale]

Ну не совсем полностью прозрачной, хотя бы на половину.
Код который показал Wladimir не хочет работать в CBuilder 5 версии.
Мож конечно я какие нибудь библиотеки не подключаю.
Короче: есть форма, на ней есть графические кнопки, менюшки и т.д.
Надо сделать так, как например сделано в BsPlayer'e. Но я тут покумекал, пришел к выводу что можно все сделать регионами (HRGN) (обыкновенная теория множеств).
Но все же интересно, как ее сделать прозрачной(Хотябы на половину).

[gooamoko]

Код не работает скорее всего потому, что AlphaBlend появился только в 6-й версии.
_________________
Что один сделал, другой завсегда сломать сможет