| Вопрос: Форма поверх всех окон | Добавлено: 13.12.03 12:43 |
Автор вопроса:  Emil Revencu
|
|
Как сделать чтобы некая форма была поверх всех остальных форм, даже когда в одной из тех пользователь вводит данные т.е. другая активна |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: Casper Вопросов: 38 Ответов: 28 |
Профиль | | #1 | Добавлено: 13.12.03 13:12 |
|
Там есть такая штука как HWND. Определи его с помощью FindWindow и поставь в SetWindowPos. |
||
|
Номер ответа: 2 Автор ответа: CasperВопросов: 38 Ответов: 28 |
Профиль | | #2 | Добавлено: 13.12.03 13:18 |
|
Тебе надо знать только имя заголовка. Вписываешь его в "" и усё. 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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Const HWND_NOTOPMOST = -2 Private Const SWP_NOACTIVATE = &H10 Private Const SWP_SHOWWINDOW = &H40 Private Sub Command1_Click() 'Форма поверх всех SetWindowPos FindWindow(vbNullString, "Имя заголовка"), HWND_TOPMOST, Form1.Left / 15, Form1.Top / 15, Form1.Width / 15, Form1.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW End Sub |
||
Страница: 1 |