| Вопрос: Как вывести окно поверх других? | Добавлено: 21.06.04 15:58 |
Автор вопроса:  Calhoon | Web-сайт: 4elovekssn.blog.ru | ICQ: 789764 |
| Нужно вывести второе окно, но чтоб было не поверх всех окон винды, а поверх окон в проекте (как окно поиска в ворде) |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  Grayich ICQ: 208280504 Вопросов: 56 Ответов: 164 |
Web-сайт: Профиль | | #1 | Добавлено: 21.06.04 16:00 |
|
Хмм
просто ставь предыдущим окнам свойство Enabled = False а при возврате True |
||
|
Номер ответа: 2 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 21.06.04 16:32 |
|
попробуй form.show(vbmodeless, me)
(тут VB нет, так что не знаю как верно modeless пишется...) |
||
|
Номер ответа: 3 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #3 | Добавлено: 21.06.04 16:48 |
| Form2.Show ,Form1 | ||
|
Номер ответа: 4 Автор ответа: Debuger Вопросов: 18 Ответов: 23 |
Профиль | | #4 | Добавлено: 21.06.04 16:57 |
|
Это в мдуль запихнии:
Attribute VB_Name = "  eclare"
'декларация функций и констант Win32API Public 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 Public Const HWND_TOPMOST = -1 Public Const HWND_NOTOPMOST = -2 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOSIZE = &H1 Public Const SWP_NOACTIVATE = &H10 Public Const SWP_SHOWWINDOW = &H40 А это по кнопкам растусуй: 'поверх всех SetWindowPos Me.hwnd, HWND_TOPMOST, 0,0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE 'не поверх всех SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE |
||
|
Номер ответа: 5 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #5 | Добавлено: 21.06.04 18:09 |
| to Maks: Он же сказал "не поверх всех окон винды, а поверх окон в проекте" | ||
|
Номер ответа: 6 Автор ответа:  rxICQ: 310731115 Вопросов: 10 Ответов: 45 |
Web-сайт: Профиль | | #6 | Добавлено: 24.06.04 11:21 |
|
Nu vi zagnuli......
Prosto: Form1.Zorder 0 ili: Form1.Zorder vbBringToFront 'konstanta 0 - to#e samoje |
||
Страница: 1 |