Несворачевоемое неактивное окно

[Vol666]

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

[Олвин]

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

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

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

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

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

[baster128]

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

[Олвин]

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

[Пепел Феникса]

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

[Vol666]

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

[Surgeon]

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

Свой апплет создать хочешь? Присвой своему окну в качестве родителя рабочий стол, в 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 перестаёт работать.

Увы :(.