main.cpp

来自「C++ builder 完全攻略 学习C++ Builder 不可缺少」· C++ 代码 · 共 34 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if (Key == 37)
    if (Shape1->Left > 0)
      Shape1->Left--;
  if (Key == 38)
    if (Shape1->Top > 0)
      Shape1->Top--;
  if (Key == 39)
    if ((Shape1->Left + Shape1->Width) < Form1->ClientWidth)
      Shape1->Left++;
  if (Key == 40)
    if ((Shape1->Top + Shape1->Height) < Form1->ClientHeight)
      Shape1->Top++;
}
//---------------------------------------------------------------------------