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

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

Как создать форму

Alex86 ©   (2002-02-05 10:34:00) 

Нужно создать форму, распологающуюся над кнопкой "Пуск", что бы она всегда оставалась на переднем плане,(т.е. не перекрывалась бы открыващимся меню "пуск"). Спасибо.

---

Pat   (2002-02-05 12:19:00) [1]

var Rect:TRect;
..............
GetWindowRect(handle,Rect);
SetWindowPos(Handle,HWND_TOPMOST,Rect.Left,Rect.Top,Rect.Right-Rect.Left,Rect.Bottom-Rect.Top, SWP_SHOWWINDOW);

---

Виктор Щербаков   (2002-02-05 11:10:00) [2]

Хоть и некрасиво, но проще чем хук.
Выключаем
EnableWindow(GetWindow(FindWindow("Shell_TrayWnd", nil), GW_CHILD), false);
Включаем
EnableWindow(GetWindow(FindWindow("Shell_TrayWnd", nil), GW_CHILD), true);

---

drpass   (2002-02-05 10:48:00) [3]

> Виктор Щербаков
А она все равно будет перекрываться меню "Пуск". Тут нужно вешать хук на кнопку и после нажатия программно прибивать меню.

---

Виктор Щербаков   (2002-02-05 10:44:00) [4]

WindowState := wsMaximized,
FormStyle := fsStayOnTop;
BorderStyle := bsNone;

---

Наверх