Несворачевоемое неактивное окно - Общие вопросы Delphi

Vol666 · 14.06.2010, 21:53

Здравствуйте все! Возник вопрос кто-нибудь сталкивался с такой задачей?
Необходимо создать форму которая не будет сворачиваться (как гаджеты в Вин 7, они не реагируют на сворачивание) при нажатии на кнопку свернуть на рамке окна, на кнопку свернуть из панели задач, и на сочетание клавиш WIN+D; при этом форма не должна быть активной и не должна находится в режиме StayOnTop! Экспериментировал с TOPMOST и др. параметрами ничего путного не вышло. Гуглить-гуглил ничего полезного не нагуглил. Одна надежда на Вас! Спасибо!

Олвин · 15.06.2010, 00:54

Свой апплет создать хочешь? Присвой своему окну в качестве родителя рабочий стол, в XP это так будет:

Код:

 ParentWindow :=  FindWindow('ProgMan', nil);

А потом вызови Show.
Только AlphaBlend перестаёт работать.

А кнопку сворачивания (как и кнопку на панели задач) вообще можно убрать нафиг.

Оффтоп: Win7 - это, конечно хорошо, но Ubuntu 10.04 всё же круче!!!

baster128 · 15.06.2010, 01:11

Может я неправильно понял вопрос? А нельзя просто BorderIcon.bdMinimize:= False:Можно и BorderIcon.bdMaximiize:= False:Тогда все кнопки исчезнут кроме креста.

Олвин · 15.06.2010, 10:23

Тогда по Win+D оно всё равно исчезать будет. Да ещё в списке Alt+Tab видно будет... Так что лучше #2. (Собственное изобретение

)

Пепел Феникса · 15.06.2010, 15:53

ну я думаю что на АПИ проще былоб, создаем окно со стилем WS_POPUP

Vol666 · 17.07.2010, 21:02

Если Вас не затруднит, не могли бы вы рассказать больше о WS_POPUP

Surgeon · 07.09.2011, 21:33

Цитата:

Сообщение от Олвин

Свой апплет создать хочешь? Присвой своему окну в качестве родителя рабочий стол, в XP это так будет:

Код:

 ParentWindow :=  FindWindow('ProgMan', nil);

Спасибо получилось:

Код:

procedure TMainFOrm.FormCreate(Sender: TObject);
begin
    MainFOrm.ParentWindow:=  FindWindow('ProgMan', nil);
end;

Цитата:

Сообщение от Олвин

А кнопку сворачивания (как и кнопку на панели задач) вообще можно убрать нафиг.

Для решения первого пункта - задаем свойство формы "BorderStyle" например = bsNone, далее решение для панели задач - обработчик OnSHow:

Код:

  Application.CreateHandle;
ShowWindow(Application.Handle, SW_HIDE);
Application.ShowMainForm := FALSE;

Цитата:

Сообщение от Олвин

Только AlphaBlend перестаёт работать.

Увы :(.

14.06.2010, 21:53	#1
Vol666 Гуру Разврата Форумчанин Регистрация: 29.07.2009 Сообщений: 373	Несворачевоемое неактивное окно Здравствуйте все! Возник вопрос кто-нибудь сталкивался с такой задачей? Необходимо создать форму которая не будет сворачиваться (как гаджеты в Вин 7, они не реагируют на сворачивание) при нажатии на кнопку свернуть на рамке окна, на кнопку свернуть из панели задач, и на сочетание клавиш WIN+D; при этом форма не должна быть активной и не должна находится в режиме StayOnTop! Экспериментировал с TOPMOST и др. параметрами ничего путного не вышло. Гуглить-гуглил ничего полезного не нагуглил. Одна надежда на Вас! Спасибо! Фредди вернулся))) И Готов Убивать!!! Последний раз редактировалось Vol666; 14.06.2010 в 23:00.

15.06.2010, 10:23	#4
Олвин Экспериментатор Форумчанин Регистрация: 16.04.2008 Сообщений: 218	Тогда по Win+D оно всё равно исчезать будет. Да ещё в списке Alt+Tab видно будет... Так что лучше #2. (Собственное изобретение) Для создания сложных вещей не нужны сложные интерфейсы. (с) Линус Торвальдс

15.06.2010, 15:53	#5
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	ну я думаю что на АПИ проще былоб, создаем окно со стилем WS_POPUP Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

17.07.2010, 21:02	#6
Vol666 Гуру Разврата Форумчанин Регистрация: 29.07.2009 Сообщений: 373	Если Вас не затруднит, не могли бы вы рассказать больше о WS_POPUP Фредди вернулся))) И Готов Убивать!!!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[?] Послать клавишу в чужое окно, не выводя окно на передний план.	Moriarty	Win Api	4	21.02.2011 05:11
Всегда неактивное окно, поверх всех остальных	Zeraim	Общие вопросы Delphi	0	24.01.2010 18:36
Неактивное меню	StasSv	Microsoft Office Excel	18	21.07.2008 13:21
И опять нажатие в неактивное окно..	Syred	Общие вопросы Delphi	0	15.06.2008 01:56
неактивное окно	oLMeR	Общие вопросы Delphi	7	11.11.2006 08:14

15.06.2010, 00:54	#2
Олвин Экспериментатор Форумчанин Регистрация: 16.04.2008 Сообщений: 218	Свой апплет создать хочешь? Присвой своему окну в качестве родителя рабочий стол, в XP это так будет: Код: `ParentWindow := FindWindow('ProgMan', nil);` А потом вызови Show. Только AlphaBlend перестаёт работать. А кнопку сворачивания (как и кнопку на панели задач) вообще можно убрать нафиг. Оффтоп: Win7 - это, конечно хорошо, но Ubuntu 10.04 всё же круче!!! Для создания сложных вещей не нужны сложные интерфейсы. (с) Линус Торвальдс Последний раз редактировалось Олвин; 15.06.2010 в 01:01.

15.06.2010, 01:11	#3
baster128 Форумчанин Регистрация: 24.04.2010 Сообщений: 205	Может я неправильно понял вопрос? А нельзя просто BorderIcon.bdMinimize:= False:Можно и BorderIcon.bdMaximiize:= False:Тогда все кнопки исчезнут кроме креста.