anchor.diff:  	frm := TfpgMDIChildForm.Create(self);
   	Result := AWindowClass.Create(frm.bvlClientArea);
   	frm.SetClientFrame(Result);
  +  frm.OnMove := @MDIChildMoved;
   	FList.Add(frm);
   	ActiveWindow := frm;
   end;
  
positive.code: begin
  	inherited Create(AOwner);
  	FIsContainer := True;
  	FHorBar := TfpgScrollbar.Create(self);
  	FHorBar.Visible := False;
  	FHorBar.Orientation := orHorizontal;
  	FVerBar := TfpgScrollbar.Create(self);
  	FVerBar.Visible := False;
  	FVerBar.Orientation := orVertical;
  	PositionScrollBars;
  	FList := TList.Create;
  	FActiveWindow := nil;
  end;
  
  
negative.code: 	end;
  end;
  
  procedure TfpgMDIChildForm.ChildFormResized(Sender: TObject);
  begin
    SendDebug('ChildFormResize');
  end;
  
  procedure TfpgMDIChildForm.DoOnMove(const x, y: TfpgCoord);
  var
    rec: TfpgMoveEventRec;
  