Какой API функой можно сделать...

[Мика]

Какой API функой можно сделать форму прозрачной?
Заранее спасибо!

[Aleksej]

Public Sub RebuildWindowRgn(FormName As Form)

Dim FullRgn As Long
Dim Rgn As Long
Dim CaptionHeight As Integer
Dim Control As Control

CaptionHeight = 22

FormName.ScaleMode = 3

FullRgn = CreateRectRgn(0, 0, FormName.Width, FormName.Height)

Rgn = CreateRectRgn(0, CaptionHeight, FormName.Width, _
FormName.Height)

CombineRgn FullRgn, FullRgn, Rgn, RGN_DIFF

For Each Control In FormName.Controls
If Control <> True Then
Rgn = CreateRectRgn(Control.Left + 2, (Control.Top + _
CaptionHeight), (Control.Left + _
Control.Width + 2), (Control.Top + _
Control.Height + CaptionHeight))
End If
CombineRgn FullRgn, FullRgn, Rgn, RGN_OR

Next Control

SetWindowRgn FormName.hWnd, FullRgn, True
End Sub

[Мика]

Не работаетю Может быть из-за того что у меня Windows XP? У меня форма становится не експишним, а как в 98'ом винде

[Aleksej]

Если тебе нужно без заголовка окна, то замени:
Rgn= CreateRectRgn(0, 0, FormName.Width, FormName.Height)

[X-BOND]

Код: Выделить всё

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

Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Sub SetTransForm(ByVal hWnd As Long, ByVal TRANS As Long)
SetWindowLong hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hWnd, 0, TRANS, LWA_ALPHA
End Sub


TRANS - число от 10 до 255 (степень прозрачности, 10-максимальная прозрачность)

Данный код работает в XP

[goro]

TRANS - число от 10 до 255 (степень прозрачности, 10-максимальная прозрачность)

Данный код работает в XP

И не только в ХР а в 2000 , и минимальная прозрачность это 1