Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Программа и интерфейс » Создать форму которая всегда будет позади всех окон

Создать форму которая всегда будет позади всех окон

Автор: Борисов С. А.

Используем функцию SetWindowPos и распологаем окно позадивсех окон каждый раз когда приходит сообщение WM_Activate, т.е. активируется окно.

public
 procedure WMActivate(var Message: TMessage); message WM_Activate;
...
procedure TForm1.WMActivate(var Message: TMessage);
begin
  SetWindowPos(Handle, HWND_BOTTOM, left, top, Width, Height, 
 SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_NOREDRAW);
end;

Визовый центр

Отзывы и истории поездок. Прогноз погоды.

visa-msk.ru
Эндоскопическая подтяжка бровей

О новообразованиях кожи. Пластическая хирургия.

ottimo.ru

Просмотров: 1667

Обсудить на форуме

(22.02.2010)

1. Сергей (Xaker)

Если использовать данный код форма получается выше значков...нельзя ли её поместить ещё ниже т.е. за ними...?)

Ответ: Это невозможно! Хотя можно используя Overlay отрисовывать на фоне за иконками, но это совсем другое. Так например Winamp делать умеет. Подробнее тут http://www.delphimaster.ru/articles/directx/index.html