anchor.diff:  		procedure SetClientFrame(AFrame: TfpgFrame);
   		procedure UpdateWindowTitle;
   		procedure Close;
  +  published
  +    property OnMove: TfpgMDIChildMoveEvent read FOnMove write FOnMove;
   	end;
   
   implementation
  
positive.code: 		Bevel2.BackgroundColor := clMedGray;
  		Bevel4.BackgroundColor := clMedGray;
  	end;
  end;
  
  procedure TfpgMDIChildForm.SetWindowTitle(AValue: TfpgString);
  
negative.code:   fpg_button;
  
  type
  
    TfpgMDIChildMoveEvent = procedure(Sender: TObject; const rec: TfpgMoveEventRec) of object;
  
    // forward declarations
  	TfpgMDIChildForm = class;
  
  
  