Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сделать форму - Always on Top? / 10 сообщений из 10, страница 1 из 1
25.04.2006, 11:48
    #33688262
Stas_prelude
Stas_prelude
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать форму - Always on Top?
Привет всем!
Вот нужно очень!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2006, 12:04
    #33688347
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать форму - Always on Top?
Воспользоваться функцией "SetWindowPos" с параметром "HWND_TOPMOST". Пример посмотри здесь .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2006, 12:12
    #33688401
krv
krv
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать форму - Always on Top?
В качестве параметров функция принимает дескриптор окна, которое нужно "затопмостить", и True/False. True - сделать форму поверх всех, False - вернуть в обычное состояние.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Public Const HWND_NOTOPMOST = - 2 
Public Const HWND_TOPMOST = - 1 
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1

Public Sub SetFormPosition(frmHandl As Long, TopPosition As Boolean)
     If TopPosition Then
         SetWindowPos frmHandl, HWND_TOPMOST,  0 ,  0 ,  0 ,  0 , SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE
     Else
         SetWindowPos frmHandl, HWND_NOTOPMOST,  0 ,  0 ,  0 ,  0 , SWP_NOSIZE Or SWP_NOMOVE
     End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2006, 12:15
    #33688415
krv
krv
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать форму - Always on Top?
Ashton - пока я писал ответ, ты уже ответил :) Так что случайно дубль вышел.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2006, 12:27
    #33688462
Stas_prelude
Stas_prelude
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать форму - Always on Top?
Spasibo, vse, Doper.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2006, 11:35
    #33696830
Ламер Ламерович
Ламер Ламерович
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать форму - Always on Top?
А как сделать чтобы окно было TOPMOST только для родительского приложения, как форма Find в офисных приложениях?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2006, 11:46
    #33696882
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать форму - Always on Top?
См. SetParent
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2006, 11:57
    #33696934
Ламер Ламерович
Ламер Ламерович
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать форму - Always on Top?
MelkiadesСм. SetParent Это я пробовал, не помогает, т.е., если я назначу для форы в качестве Parent window окно Application, то оно перестает быть TopMost
А у вас, видимо, получилось, поделитесь секретом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2006, 12:14
    #33696999
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать форму - Always on Top?
Гляньте пример - вам это нужно было?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.04.2006, 12:38
    #33697089
Ламер Ламерович
Ламер Ламерович
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как сделать форму - Always on Top?
MelkiadesГляньте пример - вам это нужно было?
Если вы из формы form1 откроете еще одну форму (например ту же form1), которая будет TopMost для MDIForm1, то может будет примерно то, что я хочу.
А я хочу чтобы форма AddIn-а (для приложений Office) - открывала еще одну форму, которая была бы TopMost для приложения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как сделать форму - Always on Top? / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 433ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165955]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 141ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 212ms
total:  433ms
x
x
Закрыть


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