Текущий архив: 2003.01.09;
Скачать: CL | DM;

Вниз

Недвигающееся окно   Найти похожие ветки 

← →
UNIVERSAL   (2002-11-22 10:50) [0]

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

---

← →
Song ©   (2002-11-22 11:06) [1]

...
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;

---

← →
UNIVERSAL   (2002-11-22 11:20) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.09;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c