[robt]

Сообщение от angvelem

То же, что и с размером, либо запретим, либо покажем то, что нужно.
А матчасть всё-таки лучше подучить.

подучи подучи

Код:

type
  TForm1 = class(TForm)
  private
  procedure WMNCHitTest(var M: TWMNCHitTest);message wm_NCHitTest;
  end;
....................
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if M.Result in [HTLEFT,HTRIGHT,HTBOTTOMLEFT,HTBOTTOMRIGHT,HTTOPLEFT,HTTOPRIGHT,HTBOTTOM,HTTOP] then  M.Result := 0;
end;