Delphi版华容道游戏.rar

Delphi华容道游戏源码，人物取材于三国传，在DELPHI7下编译通过，Position:array[0..9,0..1] of integer; //用于保存或设置每个Images组件的Left和Top属性
　　 WidthHeight:array[0..9,0..1] of integer; //用于保存每个Images组件的宽度和高度
　　 Images:array[0..9] of TImage;//TImage数组
　　 PrepareMove:Boolean; //用于显示是否准备移动
　　 Moveward:TDragWord; //移动方向
　　 BeginPosition:TPoint; //用户拖动Images组件时的起始位置
　　 Procedure ImagesMouseDown(Sender: TObject; Button: TMouseButton;
　　 Shift: TShiftState; X, Y: Integer);
　　 Procedure ImagesMouseUp(Sender: TObject; Button: TMouseButton;
　　 Shift: TShiftState; X, Y: Integer);
　　 Function InvalidMove(X:integer;Y:Integer;ButtonNumber:integer):Boolean;//判断是否允许用户的拖动