Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сделать окно "всегда поверх других", но только в рамках своего приложения. / 4 сообщений из 4, страница 1 из 1
15.12.2012, 17:13
    #38080598
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать окно "всегда поверх других", но только в рамках своего приложения.
Т.е. есть главная форма Form1.
Вызываем форму Form2.
Код: vbnet
1.
2.
3.
Private Sub Command1_Click()
  Form2.Visible = True
End Sub


Вне зависимости от того на чем фокус (Form1 или Form2), Form2 должна быть сверху.
Можно так (для Form2):
Код: vbnet
1.
2.
3.
Private Sub Form_Activate()
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE 'непотопляемое окно
End Sub


Но тогда Form2 будет поверх всех окон (включая чужие).

Надо, чтобы чужими окнами она таки топилась.
Как?
...
Рейтинг: 0 / 0
15.12.2012, 17:35
    #38080604
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать окно "всегда поверх других", но только в рамках своего приложения.
Дмитрий77,

А так, не?

Код: vbnet
1.
Form1.Show vbModeless, Form2
...
Рейтинг: 0 / 0
15.12.2012, 17:37
    #38080606
PA
PA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать окно "всегда поверх других", но только в рамках своего приложения.
PAДмитрий77,

А так, не?

Код: vbnet
1.
Form1.Show vbModeless, Form2



Т.е. наоборот

Код: vbnet
1.
Form2.Show vbModeless, Form1
...
Рейтинг: 0 / 0
15.12.2012, 18:33
    #38080636
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать окно "всегда поверх других", но только в рамках своего приложения.
PA,

Спасибо. Похоже то что нужно.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сделать окно "всегда поверх других", но только в рамках своего приложения. / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]