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;//判断是否允许用户的拖动