Ограниченное перетаскивание формы

[Maxs]

Как сделать чтобы форму можно было перетаскивать только вверх/вниз. Форма растянута по экрану.

[raxp]

моно по таймеру, но некрасиво и дергаться будет... лучше отрабатывать события движения-взятия:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var _p: TPoint;
begin
 if (Shift = [ssLeft]) then begin
  _p:= ClientToScreen(Point(X, Y));
  SetBounds(0,OrgP.Y + (_p.Y - OrgXY.Y), Width, Height);
 end
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  OrgP := Point(Left, Top);
 OrgXY:= ClientToScreen(Point(X, Y))
end;

пример внизу...