| Вопрос: Форма поверх всех в ХР | Добавлено: 06.12.03 17:16 |
Автор вопроса:  Casper
|
|
А что в ХР SetWindowPos не работает? или чтото у меня не то. Выдыет ошибку 'Overflow'. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #1 | Добавлено: 06.12.03 19:43 |
|
Это у тебя что-то не то. У меня XP - все работает... |
||
|
Номер ответа: 2 Автор ответа: Enstain Вопросов: 6 Ответов: 6 |
Профиль | | #2 | Добавлено: 06.12.03 20:08 |
|
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 Const HWND_TOPMOST = -1 Private Const HWND_NOTOPMOST = -2 Private Const SWP_NOACTIVATE = &H10 Private Const SWP_SHOWWINDOW = &H40 Private Sub Command1_Click() 'Форма поверх всех SetWindowPos Form1.hWnd, HWND_TOPMOST, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW End Sub Private Sub Command2_Click() 'Форма не поверх всех SetWindowPos Form1.hWnd, HWND_NOTOPMOST, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDO End Sub Вроде так |
||
|
Номер ответа: 3 Автор ответа: Casper Вопросов: 38 Ответов: 28 |
Профиль | | #3 | Добавлено: 07.12.03 11:55 |
|
Вот именно на этот код вылетает ошибка. Странно... |
||
|
Номер ответа: 4 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #4 | Добавлено: 07.12.03 13:59 |
| Да SetWindowPos вобще как-то диковато ведет себя, после неё не найдешь, где твои окна располагаются, видишь в одной позиции, а на me.Left и me.Top получаешь какие-то значения, не имеющие к реальному положению никакого отношения. Я по возможности пользуюсь BringWindowToTop, а SetWindowPos только в крайних случаях. | ||
Страница: 1 |