| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

противоположность AlwaysOnTop.. [D7, WinXP]

ПроНыРа ©   (2005-02-19 11:37:00) 

Очень своеобразный вопрос... Вот у нас есть свойство - Always On Top, а как сделать наоборот - чтобы программа всегда была под остальными, тоесть как-бы прилеплена к рабочему столу... Желательно с примерчиком :).

---

ПроНыРа   (2005-02-19 15:09:00) [1]

> Zeqfreed ©   (19.02.05 14:33) [5]
Что значит при открытии формы?
на OnShow не помагает, на OnActivate тоже...

---

Zeqfreed   (2005-02-19 14:33:00) [2]

При открытии формы делать то, что сделано в Create, от туда же можно в таком случае убрать.

---

ПроНыРа   (2005-02-19 14:23:00) [3]

> Zeqfreed ©   (19.02.05 14:09) [3]

Всё супер, только при создании формы она всё-еще поверх окон, а как тогда сделать так, чтобы при запуске программы форма сразу находилась ниже всех окон?

---

Zeqfreed   (2005-02-19 14:09:00) [4]


 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
  procedure WMWindowPosChanging(var Msg : TWMWINDOWPOSCHANGING); message WM_WINDOWPOSCHANGING;
 end;

procedure TForm1.WMWindowPosChanging(var Msg : TWMWINDOWPOSCHANGING);
begin
Msg.WindowPos^.flags := Msg.WindowPos^.flags or SWP_NOZORDER;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowPos(Handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
end;

Так работает, только если форма не главная, то она сможет станвиться поверх главной.

---

ПроНыРа   (2005-02-19 13:53:00) [5]

> To DVM ©
так как же всё-таки сделать ниже всех...???

---

Neznaika   (2005-02-19 13:49:00) [6]

Исходя из:
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1108541537&n=0

DVM знает как...

---

Наверх