Как сделать окно поверх всех окон Винды?
Clarion, Clarion 7
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
-
- ✯ Ветеран ✯
- Сообщения: 5183
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 11 раз
- Поблагодарили: 26 раз
Как сделать окно поверх всех окон Винды?
Собственно, сабж. Естественно, нужно программно.
We are hard at work… for you. 

kreator
PavelNK
Как сделать окно поверх всех окон Винды?
В последних версиях винды, похоже, и это не работает.
По крайней мере, старый менеджер компиляции cmp60 сейчас не вылазит наверх
, стар стал, наверное...
Можно попробовать просто
0{Prop:Active} = True
Или
SetTarget(,1)
0{Prop:Active} = True
SetTarget
По крайней мере, старый менеджер компиляции cmp60 сейчас не вылазит наверх

Можно попробовать просто
0{Prop:Active} = True
Или
SetTarget(,1)
0{Prop:Active} = True
SetTarget
Yufil
- Дед Пахом
- Старичок
- Сообщения: 3302
- Зарегистрирован: 07 Июль 2005, 16:51
- Откуда: Москва, Россия
- Благодарил (а): 15 раз
- Поблагодарили: 51 раз
- Контактная информация:
Как сделать окно поверх всех окон Винды?
У меня вот такая конструкция работает:
gTHD:FrameRef - это APPLICATION
Window - это MDI child window
Код: Выделить всё
Routine::BringToTop ROUTINE
DATA
CODE
IF gTHD:FrameRef{PROP:Iconize} = TRUE
gTHD:FrameRef{PROP:Iconize} = FALSE
LOOP 10 TIMES
IF SetForegroundWindow(gTHD:FrameRef{PROP:Handle}) = TRUE
BREAK
END
END
END
IF Window{PROP:Active} <> TRUE
Window{PROP:Active} = TRUE
END
Window - это MDI child window
С уважением, ДП
Дед Пахом
-
- ✯ Ветеран ✯
- Сообщения: 5183
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 11 раз
- Поблагодарили: 26 раз
Как сделать окно поверх всех окон Винды?
Спасибо, ДП. Приложение и окно поднимаются. А вот вроде как есть возможность сделать окно, которое всегда будет висеть поверх других приложений, типа без возможности переключиться на другое приложение. Или я что-то не так понимаю?
We are hard at work… for you. 

kreator
Как сделать окно поверх всех окон Винды?
А какая Windows? У меня до какого-то момента было всё OK, а потом облом-с, правда, юзал SetWindowPos
Возможно, это для 64-битных актуально.
Например,
http://www.dxsdata.com/2013/03/c-bring- ... vista-7-8/
https://groups.google.com/forum/#!topic ... Hk7IkAAf9s
и много других... Сейчас пару приложений пустил (тот же cmp60) под win7/64 - да, не работает
Сейчас реализовал по-другому, но осадок остался
Возможно, это для 64-битных актуально.
Например,
http://www.dxsdata.com/2013/03/c-bring- ... vista-7-8/
https://groups.google.com/forum/#!topic ... Hk7IkAAf9s
и много других... Сейчас пару приложений пустил (тот же cmp60) под win7/64 - да, не работает
Сейчас реализовал по-другому, но осадок остался

Yufil
-
- ✯ Ветеран ✯
- Сообщения: 5183
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 11 раз
- Поблагодарили: 26 раз
Как сделать окно поверх всех окон Винды?
Win7-64. Повторил код ДП один в один. В широкую эксплуатацию не скоро пустим. Пока идёт сбор требований заказчика.Yufil писал(а):А какая Windows?
We are hard at work… for you. 

kreator
Вернуться в «CLARION for Windows»
Перейти
- CW
- ↳ CLARION for Windows
- ↳ CLARION for Internet
- ↳ Clarion.NET
- Эксклюзив
- ↳ Приват
- CLARION и...
- ↳ Reports
- ↳ Железо
- ↳ Готовые программы, шаблоны, библиотеки...
- ↳ cJSON
- ↳ LibCurl
- ↳ MAV
- ↳ SQL, Oracle, ...
- ↳ Multi-программирование(Pascal/Delphi, и т.д.)
- ↳ WinDev
- DOS
- ↳ CLARION for DOS
- Разное
- ↳ Новости
- ↳ English
- ↳ Ресурсы
- ↳ Работа
- ↳ Обо всем ...
- ↳ Обсуждение этого Форума (типа, Гостевая книга)