procedure TForm1.DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
col,row : integer;
i ,j : integer;
begin
// 按下鼠标进行棋子绘制
DRAWgrid1.Canvas.Pen.Color:=clBlack;
DRAWgrid1.Canvas.Brush.Color:=clBlack;
DRAWgrid1.MouseToCell(x,y,col,row);
if yy[col,row] =0 then
begin
if IsBack then
begin
DRAWgrid1.Canvas.Ellipse(col*21,row*21,(col+1)*21, (row+1)*21 );
yy[col,row] :=1;
end
else
begin
DRAWgrid1.Canvas.Arc(col*21,row*21, (col+1)*21,(row+1)*21,col*21,row*21,col*21,row*21 );
yy[col,row] := 2;
end ;
if ISyIN(isBack) THEN
Begin
if ISbACK THEN
IF messageDLG(’黑方胜利’,mtInformation,[mbOK],0) =mrOK then
begin
for i:=0 to 18 do
for j:=0 to 18 do
begin
yy[i,j]:=0;
end;
DrawGrid1.Invalidate;
end;
end;
