控制鍵盤事件

1. 在DrawGrid物件中, 點選OnKeyDown事件進入編輯

switch (Key)

{ case VK_LEFT: //鍵盤:左方向鍵

//ShowMessage("left");

if (mouseposCol-1>=0) //判斷 mouse 有無超出界線

{ if (mark[mouseposRow][mouseposCol-1]==0)

{ //判斷下一步是否可以走

mark[mouseposRow][mouseposCol-1] = 3;

mark[mouseposRow][mouseposCol] = 0;

DrawGrid2->Canvas->FillRect(DrawGrid2->CellRect(mouseposCol,mouseposRow));

mouseposCol = mouseposCol-1;

DrawGrid2->Canvas->CopyRect(DrawGrid2->CellRect(mouseposCol,mouseposRow), bmp->Canvas ,R1);

}

}

break;

case VK_RIGHT: //鍵盤:右方向鍵

//ShowMessage("right");

if (mouseposCol+1<g_Width)

{ //判斷 mouse 有無超出界線

if (mark[mouseposRow][mouseposCol+1]==0)

{ //判斷下一步是否可以走

mark[mouseposRow][mouseposCol+1] = 3;

mark[mouseposRow][mouseposCol] = 0;

DrawGrid2->Canvas->FillRect(DrawGrid2->CellRect(mouseposCol,mouseposRow));

mouseposCol = mouseposCol+1;

DrawGrid2->Canvas->CopyRect(DrawGrid2->CellRect(mouseposCol,mouseposRow), bmp->Canvas ,R1);

}

}

break;

case VK_UP: //鍵盤:上方向鍵

//ShowMessage("up");

if (mark[mouseposRow-1][mouseposCol]==0)

{ //判斷下一步是否可以走

mark[mouseposRow-1][mouseposCol] = 3;

mark[mouseposRow][mouseposCol] = 0;

DrawGrid2->Canvas->FillRect(DrawGrid2->CellRect(mouseposCol,mouseposRow));

mouseposRow = mouseposRow-1;

DrawGrid2->Canvas->CopyRect(DrawGrid2->CellRect(mouseposCol,mouseposRow), bmp->Canvas ,R1);

}

break;

case VK_DOWN: //鍵盤:下方向鍵

//ShowMessage("down");

if (mark[mouseposRow+1][mouseposCol]==0)

{ //判斷下一步是否可以走

mark[mouseposRow+1][mouseposCol] = 3;

mark[mouseposRow][mouseposCol] = 0;

DrawGrid2->Canvas->FillRect(DrawGrid2->CellRect(mouseposCol,mouseposRow));

mouseposRow = mouseposRow+1;

DrawGrid2->Canvas->CopyRect(DrawGrid2->CellRect(mouseposCol,mouseposRow), bmp->Canvas ,R1);

}

break;

}