Прозрачная форма

[Temonkuz]

кАК сделать прозрачную форму?

[Urvin]

По програчности они бывают двух видов - контурные и бленд. Вообще, такая тема уже была на форуме. А так ищи на www.planet-source-code.com слово transparent. Найдешь до фига и больше!

[Мика]

Держи!!!

Это кидаеш в модуль

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

Это где угодно

SetTransForm Form1.hWnd, 100

0-255

0-проктически не видно
255-просто форма
У меня под XP работает!

[ASD]

Это и будет работать только под w2k и ХР

[Хой]

И к тому же жутко тормозить при перетаскивании формы!
Лучше вырезать регионы!

[Aleksej]

Вот так, а заголовок остаётся
'*****************************************************
'Процедура делает форму прозрачной
'FormName - передача формы в процедуру
'*****************************************************
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

[gaidar]

И к тому же жутко тормозить при перетаскивании формы!
Лучше вырезать регионы!

Вот это ты зря. Как раз если вырезать регионы, то тут и будет тормозить!

[Хой]

Вот это ты зря. Как раз если вырезать регионы, то тут и будет тормозить!

Ну это смотря как их вырезать!
У меня, лично, регионы быстрее чем SetTransForm
Если пробывать на "медленных" машинах, то заметно ну а если но пнях 4-х то там разници не уловить!