anchor.diff:  		FIsMouseDown: boolean;
   		FLastPos: TPoint;
   		FActive: boolean;
  +    FOnMove: TfpgMDIChildMoveEvent;
   		procedure SetWindowTitle(AValue: TfpgString); reintroduce;
   		procedure TitleMouseMove(Sender: TObject; AShift: TShiftState; const AMousePos: TPoint);
   		procedure TitleMouseUp(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
  
positive.code: 		procedure SetClientFrame(AFrame: TfpgFrame);
  		procedure UpdateWindowTitle;
  		procedure Close;
  	end;
  
  implementation
  
negative.code: 		Bevel2.BackgroundColor := clMedGray;
  		Bevel4.BackgroundColor := clMedGray;
  	end;
  end;
  
  procedure TfpgMDIChildForm.DoOnMove(const x, y: TfpgCoord);
  var
    rec: TfpgMoveEventRec;
  begin
    if Assigned(FOnMove) then
    begin
      rec.Sender := self;
      rec.x := x;
      rec.y := y;
      FOnMove(self, rec);
    end;
  end;
  
  procedure TfpgMDIChildForm.HandleMove(x, y: TfpgCoord);
  begin
    inherited HandleMove(x, y);
    DoOnMove(x, y);
  end;
  
  procedure TfpgMDIChildForm.SetWindowTitle(AValue: TfpgString);
  