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

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

Недвигающееся окно [D5, Win2k]

UNIVERSAL ©   (2002-11-22 10:50:00) 

Доброе время суток, господа программисты. Подскажите, плз, как сделать окно(форму) , которое нельзя переместить с помощью API(без хуков)?

---

UNIVERSAL   (2002-11-22 11:20:00) [1]

Спасибо, но хочется именно с помощью API, дело в том что это надо сделать вообще-то в Access.

---

Song   (2002-11-22 11:06:00) [2]

...
procedure IsWindowMoving(Var Msg:TMessage); message WM_MOVING;

...

procedure TForm1.IsWindowMoving(Var Msg:TMessage);
Begin
PRect(Msg.LParam).Left:=Left;
PRect(Msg.LParam).Top:=Top;
PRect(Msg.LParam).Right:=Left+Width;
PRect(Msg.LParam).Bottom:=Top+Height;
End;

---

Наверх