Запретить перемещение окна

← →
BFG9k © (2005-08-03 18:10) [0]

Окно перемещается вручную с помощью Drag&Drop и должно оставаться в определенных рамках. Если передвигать его сразу же обратно (в OnmouseMove например), то это будет видно и окно будет скакать. Как можно запретить окну перемещаться ?

← →
DVM © (2005-08-04 13:26) [1]

WM_MOVING обрабатывать, а не WM_MOVE

← →
Morgoth (2005-08-04 16:20) [2]

procedure WMWINDOWPOSCHANGING(var Msg: TWMWINDOWPOSCHANGING); message WM_WINDOWPOSCHANGING;

procedure TForm1.WMWindowPosChanging(var Msg: TWMWindowPosChanging);
begin
Msg.WindowPos.x := Left;
Msg.WindowPos.y := Top;
Msg.WindowPos.cx := Width;
Msg.WindowPos.cy := Height;
inherited;
end;

правда и размер поменять не получится :)

2 Morgoth:

Спасибо, все отлично работает.

Запретить перемещение окна Найти похожие ветки