| Вопрос: Как срыть заголовок у MDIForm? | Добавлено: 04.03.07 16:42 |
Автор вопроса:  »VladikComper« | Web-сайт: vladikcomper.narod.ru | ICQ: 419668582 |
|
Пишу сверх проект с собственным интерфейсом. Заголовок будет свой...
Как убрать заголовок у обычной формы понятно, а как у MDIForm? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  EUGY Вопросов: 0 Ответов: 454 |
Профиль | Цитата | #1 | Добавлено: 04.03.07 16:51 |
|
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 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) As Long Private Const GWL_STYLE = (-16) Private Const WS_OVERLAPPED = &H0& Private Const WS_THICKFRAME = &H40000 Private Const SWP_FRAMECHANGED = &H20 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Sub MDIForm_Load() Call SetWindowLong(Me.hwnd, GWL_STYLE, WS_THICKFRAME Or WS_OVERLAPPED) Call SetWindowPos(Me.hwnd, 0, 0, 0, 0, 0, SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE) End Sub |
||
|
Номер ответа: 2 Автор ответа: »VladikComper«ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 04.03.07 16:53 |
|
Спасибо большое...
!!!!!!!!!!!!!!!!!!!!!! |
||
Страница: 1 |