Форма становится прозрачной, а кнопка - нет

@dimas5552 · Регистрация: 27.01.2014

Студворк — интернет-сервис помощи студентам

Создаем проект Visual Basic, на форму кидаем кнопку и пишем код в эту форму:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long 
 
Private Sub Form_Load() 
    Dim Ret As Long 
    Ret = GetWindowLong(hwnd, GWL_EXSTYLE) 
    Ret = Ret Or &H80000 
    SetWindowLong hwnd, (-20), Ret 
     
    SetLayeredWindowAttributes hwnd, 0, 128, 2 
End Sub

И наша форма становится прозразна на 50 процентов. Теперь немножко переделываем код для кнопки:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long 
 
Private Sub Form_Load() 
    Dim Ret As Long 
    Ret = GetWindowLong(Command1.hwnd, GWL_EXSTYLE) 
    Ret = Ret Or &H80000 
    SetWindowLong Command1.hwnd, (-20), Ret 
   
    SetLayeredWindowAttributes Command1.hwnd, 0, 128, 2 Or 1 
     
End Sub

... и кнопка почему то не становится на 50% прозрачнее Где ошибка?

@Антихакер32 · 18.07.2014, 22:49

Вобщем, я пошел еще дальше,
сделал полупрозрачную кнопку отдельным компонентом
с настраиваемой альфой, и дисплейным именем TransButt

Форма .Frm

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
'
'Демонстрация работы компонента TransButt
'© Антихакер32™
'
Dim o As Object
 
Private Sub Form_Load()
    Hook Me
End Sub
 
Private Sub Form_Terminate()
    UnHook
End Sub
 
Public Sub WMove()
    For Each o In Me
        If TypeName(o) = "TransButt" Then Call o.Sinhronize
    Next
End Sub
 
Public Sub WActivate()
    For Each o In Me
        If TypeName(o) = "TransButt" Then Call o.Sinhronize
    Next
End Sub

Модуль .Bas

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Option Explicit
'
'Модуль для сабкласинга
'
Public Const GWL_WNDPROC = -4
' Сообщения windows
'
Public Const WM_ACTIVATE = &H6
Public Const WM_CLOSE = &H10
Public Const WM_MOVE = &H3
Public Const WM_SIZE = &H5
 
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 CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
'
Dim SWL As Long
Dim mhWnd As Long
Dim mParent As Object
 
 
Function Hook(Parent As Object) As Long
    On Error GoTo errr
    Set mParent = Parent
    mhWnd = mParent.hWnd
    SWL = SetWindowLong(mhWnd, GWL_WNDPROC, AddressOf WindowProc)
errr:
End Function
 
Sub UnHook()
    Call CallWindowProc(SWL, mhWnd, WM_CLOSE, 0, 0)
End Sub
 
Public Function WindowProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   Dim o As Object
   On Error GoTo errr
   Select Case Msg
   Case WM_SIZE
        Call mParent.WSize
        Exit Function
   Case WM_ACTIVATE
        Call mParent.WActivate
        Exit Function
    Case WM_MOVE
        Call mParent.WMove
        Exit Function
   End Select
   WindowProc = CallWindowProc(SWL, hWnd, Msg, wParam, lParam)
errr:
End Function

Модуль компонента .Ctl

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
Option Explicit
'
'Компонент "Полупрозрачная кнопка"
'© Антихакер32™
'
Const KeyTransparent = &HC0E0FF 'Ключ прозрачности
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Const HWND_TOP = 0
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const LWA_COLORKEY = &H1
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED As Long = &H80000
Dim mRECT As RECT, o As Object
Dim WithEvents cmm As CommandButton
'Default Property Values:
Const m_def_Caption = ""
Const m_def_Alpha = 200
'Property Variables:
Dim m_Alpha As Long
 
Private Sub UserControl_Initialize()
    Set cmm = Controls.Add("vb.CommandButton", "cmm")
End Sub
 
Private Sub UserControl_Resize()
    On Error Resume Next
    cmm.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
 
Public Sub Sinhronize()
    On Error Resume Next
    GetWindowRect hWnd, mRECT
    If GetForegroundWindow = Parent.hWnd Then SetParent cmm.hWnd, 0 _
    Else SetParent cmm.hWnd, Parent.hWnd
    With mRECT
        SetWindowPos cmm.hWnd, HWND_TOP, .Left, .Top, .Right - .Left, .Bottom - .Top, 0
    End With
End Sub
 
Private Sub UserControl_Show()
    cmm.Visible = 1
    If Ambient.UserMode Then
        '
        'Если запущен режим выполнения, то устанавливаем прозрачность
        '
        BackColor = KeyTransparent
        SetParent cmm.hWnd, 0
        SetWindowLong cmm.hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
        SetLayeredWindowAttributes cmm.hWnd, 0, m_Alpha, 2
        SetWindowLong Parent.hWnd, GWL_EXSTYLE, GetWindowLong(Parent.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
        SetLayeredWindowAttributes Parent.hWnd, KeyTransparent, 0, LWA_COLORKEY
    End If
End Sub
 
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=8,0,0,0
Public Property Get Alpha() As Long
    Alpha = m_Alpha
End Property
 
Public Property Let Alpha(ByVal New_Alpha As Long)
    m_Alpha = New_Alpha
    PropertyChanged "Alpha"
End Property
 
'Initialize Properties for User Control
Private Sub UserControl_InitProperties()
    m_Alpha = m_def_Alpha
    cmm.Caption = Ambient.DisplayName
End Sub
 
'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
 
    m_Alpha = PropBag.ReadProperty("Alpha", m_def_Alpha)
    cmm.Caption = PropBag.ReadProperty("Caption", m_def_Caption)
End Sub
 
'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("Alpha", m_Alpha, m_def_Alpha)
    Call PropBag.WriteProperty("Caption", cmm.Caption, m_def_Caption)
End Sub
 
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=13,0,0,
Public Property Get Caption() As String
    Caption = cmm.Caption
End Property
 
Public Property Let Caption(ByVal New_Caption As String)
    cmm.Caption = New_Caption
    PropertyChanged "Caption"
End Property

картинка результата:

прямая ссылка на закачку архива с исходниками

Добавлено через 23 минуты
причем, уже не приходится использовать дополнительные контролы
как PictureBox, дырку я проделал цветом самого компонента

@The trick · 19.07.2014, 01:17

Имитация прозрачности, используя перехват рисования. Двойная буферизация (без мерцаний). Поддерживается перекрытие с непрозрачными контролами.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
Option Explicit
 
Private Type RECT
    iLeft As Long
    iTop As Long
    iRight As Long
    iBottom As Long
End Type
Private Type PAINTSTRUCT
    hdc As Long
    fErase As Long
    rcPaint As RECT
    fRestore As Long
    fIncUpdate As Long
    rgbReserved(31) As Byte
End Type
 
Private Declare Function InitCommonControlsEx Lib "comctl32" (icc As Any) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function AlphaBlend Lib "msimg32" (ByVal hdcDest As Long, ByVal xDest As Long, ByVal yDest As Long, ByVal WidthDest As Long, ByVal HeightDest As Long, ByVal hdcSrc As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal WidthSrc As Long, ByVal HeightSrc As Long, ByVal Blendfunc As Long) As Long
Private Declare Function BeginPaint Lib "user32" (ByVal hwnd As Long, lpPaint As PAINTSTRUCT) As Long
Private Declare Function EndPaint Lib "user32" (ByVal hwnd As Long, lpPaint As PAINTSTRUCT) As Long
Private Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As Any, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function MapWindowPoints Lib "user32" (ByVal hwndFrom As Long, ByVal hwndTo As Long, lppt As Any, ByVal cPoints As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetUpdateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetViewportOrgEx Lib "gdi32" (ByVal hdc As Long, ByVal nX As Long, ByVal nY As Long, lpPoint As Any) As Long
Private Declare Function SelectClipRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long) As Long
 
Private Const GW_HWNDNEXT       As Long = 2
Private Const WM_PAINT          As Long = &HF
Private Const WM_ERASEBKGND     As Long = &H14
Private Const RDW_UPDATENOW     As Long = &H100
Private Const RDW_INVALIDATE    As Long = &H1
 
Dim WithEvents sclButton    As clsTrickSubclass
 
Private Sub Form_Initialize()
    InitCommonControlsEx 3435973.8623@
End Sub
 
Private Sub Form_Load()
    Dim p As Long
    
    Set sclButton = New clsTrickSubclass
    sclButton.HookClass cmdTest(0).hwnd
    sclButton.ResumeSubclass
 
    For p = 1 To 6
        Load cmdTest(p)
        cmdTest(p).Move 5, p * 50 + 5, ScaleWidth - 10, 45
        cmdTest(p).Visible = True
        cmdTest(p).ZOrder
        cmdTest(p).Caption = Choose(p, "Transparent", _
                                       "buttons", _
                                       "by The trick", _
                                       "use TrickSubclass", _
                                       "fake transparent", _
                                       "double buffering")
    Next
    
End Sub
 
Private Sub hsbAlpha_Change()
    Dim i As Long
    For i = 0 To cmdTest.UBound: cmdTest(i).Refresh: Next
End Sub
Private Sub hsbAlpha_Scroll()
    hsbAlpha_Change
End Sub
 
Private Sub sclButton_WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long, Ret As Long, DefCall As Boolean)
    Select Case Msg
    Case WM_ERASEBKGND: OnErase hwnd, wParam, lParam
    Case WM_PAINT: OnPaint hwnd
    Case Else: DefCall = True
    End Select
End Sub
 
Private Sub OnErase(ByVal hwnd As Long, ByVal hdc As Long, ByVal ID As Long)
    Dim rc As RECT, map As RECT, nWnd As Long
    
    If ID <> hwnd Then Exit Sub
    
    nWnd = GetParent(hwnd)
    GetUpdateRect hwnd, rc, 0
    map = rc: MapWindowPoints hwnd, nWnd, map, 2
    SetViewportOrgEx hdc, -map.iLeft, -map.iTop, ByVal 0&
    SendMessage nWnd, WM_PAINT, hdc, ByVal 0&
    nWnd = GetWindow(hwnd, GW_HWNDNEXT)
    
    Do While nWnd
        map = rc: MapWindowPoints hwnd, nWnd, map, 2
        SetViewportOrgEx hdc, -map.iLeft, -map.iTop, ByVal 0&
        SendMessage nWnd, WM_PAINT, hdc, ByVal 0&
        SelectClipRgn hdc, 0
        nWnd = GetWindow(nWnd, GW_HWNDNEXT)
    Loop
 
    SetViewportOrgEx hdc, 0, 0, ByVal 0&
    
End Sub
Private Sub OnPaint(ByVal hwnd As Long)
    Dim sDc As Long, sBmp As Long, soBmp As Long, _
        dDc As Long, dBmp As Long, doBmp As Long, _
        rc As RECT, ps As PAINTSTRUCT
    
    GetUpdateRect hwnd, rc, 0
    sDc = CreateCompatibleDC(Me.hdc):   dDc = CreateCompatibleDC(Me.hdc)
    sBmp = CreateCompatibleBitmap(Me.hdc, rc.iRight, rc.iBottom)
    dBmp = CreateCompatibleBitmap(Me.hdc, rc.iRight, rc.iBottom)
    soBmp = SelectObject(sDc, sBmp):    doBmp = SelectObject(dDc, dBmp)
    sclButton.CallDef hwnd, WM_PAINT, sDc, 0, False
    BeginPaint hwnd, ps
    SendMessage hwnd, WM_ERASEBKGND, dDc, ByVal hwnd
    AlphaBlend dDc, rc.iLeft, rc.iTop, rc.iRight - rc.iLeft, rc.iBottom - rc.iTop, _
               sDc, rc.iLeft, rc.iTop, rc.iRight - rc.iLeft, rc.iBottom - rc.iTop, CLng(hsbAlpha.Value) * &H10000
    BitBlt ps.hdc, rc.iLeft, rc.iTop, rc.iRight - rc.iLeft, rc.iBottom - rc.iTop, dDc, rc.iLeft, rc.iTop, vbSrcCopy
    EndPaint hwnd, ps
    SelectObject sDc, soBmp:    SelectObject dDc, doBmp
    DeleteObject sBmp:          DeleteObject dBmp
    DeleteDC sDc:               DeleteDC dDc
    
End Sub

Работает как на XP:

Форма становится прозрачной, а кнопка - нет

Так и на Win7:

Корректно работает только с манифестом, для работы без манифеста дополнительно нужно обработать сообщения мыши. В архиве 2 примера. Используется мой модуль для сабклассинга.

@Антихакер32 · 19.07.2014, 06:38

Сообщение от The trick

TransparentControl.rar (418.0 Кб, 1 просмотров)

Вердикт, такой:
Все не работает !, объяснять небуду, и не хочу
ни скомпилированные приложения ни чтото еще
все что есть в архиве не работает и не запускается, я не выдумываю

@Pro_grammer · 19.07.2014, 07:51

Сообщение от Антихакер32

все что есть в архиве не работает и не запускается

Ну да, надо чуть внимательнее прочитать сообщение и к проекту это подключить:

Сообщение от The trick

Используется мой модуль для сабклассинга.

И исходник заработает волшебным образом

Скомпилированные приложения и у меня не работают, может из за XP x86, ошибок не выдают.

@Антихакер32 · 19.07.2014, 08:04

The Trick, зато рекламу Вашему проекту обеспечили
что касается меня, то вы должны быть благодарны что остались еще
последние энтузиасты, которые тестируют ваши приложения,
почему-то которые никак себя не проявляют

и что бы это значило

@Антихакер32 · 19.07.2014, 10:21

Исправил проект The Trick'а, наверное чтото такое должно было выйти

@The trick · 19.07.2014, 11:08

Сообщение от Антихакер32

The Trick, зато рекламу Вашему проекту обеспечили
что касается меня, то вы должны быть благодарны что остались еще
последние энтузиасты, которые тестируют ваши приложения,
почему-то которые никак себя не проявляют
и что бы это значило

Чего-чего? Все мои программы работают. Все баги, о которых мне сообщают я исправляю, в отличии от тебя, и делаю это с большим удовольствием.

Сообщение от Антихакер32

Исправил проект The Trick'а, наверное чтото такое должно было выйти

Что ты исправил? Добавил модуль? Так я и так дал на него ссылку, не нужно так делать, т.к. в модуле могут быть баги и я их исправляю и обновляю, поэтому пользователь должен брать новую версию.
А с работой в скомпилированном файле я сейчас разберусь. Также я написал сразу:

Сообщение от The trick

Тестировалось на Win7x64. Корректно работает только с манифестом

Твой код страдает не меньшими багами, но ты его не исправляешь.

@The trick · 20.07.2014, 11:25

Исправил баг при работе в WinXP (перезалил туда же). Большое спасибо Dragokas'у и Pro_grammer'у. Поставил себе виртуалку, теперь буду тестировать на 2-х системах.
Антихакер32, а как у тебя дела с решением твоих багов?

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	19.07.2014, 08:04
	The Trick, зато рекламу Вашему проекту обеспечили что касается меня, то вы должны быть благодарны что остались еще последние энтузиасты, которые тестируют ваши приложения, почему-то которые никак себя не проявляют и что бы это значило 0

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	20.07.2014, 11:25
	Исправил баг при работе в WinXP (перезалил туда же). Большое спасибо Dragokas'у и Pro_grammer'у. Поставил себе виртуалку, теперь буду тестировать на 2-х системах. Антихакер32, а как у тебя дела с решением твоих багов? 0

Форма становится прозрачной, а кнопка - нет

Решение