这么清晰的代码，看不懂？真不知道怎么注释
首先FEls: TEls;是声明一个TEIs，TEIs是封装好的的一个类，就是游戏操作画面，它本身封装好了如下函数：
FEls.Start;//游戏开始
FEls.MoveLeft;//控制向左移动
FEls.MoveRight;//控制向右移动
FEls.MoveDown;//控制向下移动
FEls.Transform;//控制变换方向
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FEls.Free;//释放
end;
procedure TfrmMain.FormCreate(Sender: TObject);
begin
FEls := TEls.Create(Panel1, Panel2, Timer);//实例化TEls，创建游戏操作画面，容器为Panel1和Panel2，定时器用Timer
end;
procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//监听键盘消息，按下方向键响应类中不同方法
case Key of
VK_LEFT: FEls.MoveLeft;//按下向左键，控制向左移动
VK_RIGHT: FEls.MoveRight;//按下向右键，控制向右移动
VK_UP: FEls.Transform;//按下向上键，控制变换方向
VK_DOWN: FEls.MoveDown;//按下向下键，控制向下移动
else
end;
end;
procedure TfrmMain.btnStartClick(Sender: TObject);
begin
FEls.Start;//游戏开始
end;
procedure TfrmMain.TimerTimer(Sender: TObject);
begin
FEls.MoveDown;//定时器中，控制向下移动
end;
end.
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024