Form lässt sich nicht verschieben

[daredd]

und hier die Procedure an sich:

Delphi-Quellcode:

procedure TFormBigGraph.CMHitTest(var Msg : TWMNCHitTest);
begin
     if PtInRect(Graph.ClientRect, Graph.ScreenToClient(Point(Msg.XPos, Msg.YPos))) then Msg.Result := HTCAPTION;
end;