[nixon232]

Поторопился я радоваться. Выдает туже ошибку в этом обработчике

Код:

procedure TPForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND, SC_DragMove, 0);
end;

т.е. перетягивание формы за объект. За любой другой объект нормально, а за грид не тянется. т.е тянется, но с ошибкой.

Код:

procedure TPForm.WMSysCommand(var Msg: TWMSysCommand);
begin
inherited;
 if (Msg.CmdType and $FFF0) = SC_MOVE  then
   begin
     FForm.Left:=FForm.Left+(MF.Left-mX);
     FForm.Top:=FForm.Top+(MF.Top-mY);

     PForm.Left:=PForm.Left+(MF.Left-mX);
     PForm.Top:=PForm.Top+(MF.Top-mY);
     mX:=MF.Left;
     mY:=MF.Top;
  
   end;

end;