Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как сделать кнопку "закрыть" неактивной

9.0K
30 августа 2006 года
f14tc
25 / / 06.11.2005
Как можно с помощью Win32 API сделать неактивной кнопку "Закрыть" (всем известная кнопка с крестиком) в правом верхнем углу окна?
20K
31 августа 2006 года
SerejK
5 / / 25.08.2006
Я когда-тоделал такое, причем скрывал кнопк закрытия чужой программы...Почитай статьи на DelphiWorld, я там материал находил...Просто сейчас нет времени заново искать.. :-)
[RIGHT]Удачи![/RIGHT]
9.0K
31 августа 2006 года
f14tc
25 / / 06.11.2005
Ура нашел!
Код:
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Const SC_CLOSE = &HF060
Const MF_BYCOMMAND = &H0


Public Sub DisableXbutton(ByVal frmHwnd As Long)
    Dim hMenu As Long
    hMenu = GetSystemMenu(frmHwnd, 0&)
    If hMenu Then
        Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
        DrawMenuBar (frmHwnd)
    End If
End Sub

Private Sub Form_Load()
    DisableXbutton (Me.hwnd)
End Sub
7
08 ноября 2006 года
@pixo $oft
3.4K / / 20.09.2006
Есть код и поменьше.Если хочешь,выложу
334
08 ноября 2006 года
HexEdit
809 / / 27.07.2006
Если нужно просто сделать неактивной -
 
Код:
SetClassLong(hWnd, GCL_STYLE, GetClassLong(hWnd, GCL_STYLE) | CS_NOCLOSE);
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог