anchor.diff:    dx, dy: integer;
     wgd: TWidgetDesigner;
   begin
  +  msg.Stop  := True;
     if not FDragging then
       Exit;
   
  
positive.code: 
  procedure TFormDesigner.MsgActivate(var msg: TfpgMessageRec);
  begin
    maindsgn.SelectForm(self);
  end;
  
  
negative.code:   key := msg.params.keyboard.keycode;
    ss  := msg.params.keyboard.shiftstate;
  
    msg.Stop := True;
    consumed := False;
  
    DesignerKeyPress(key, ss, consumed);
  