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