main.cpp

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

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

#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::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  if (Button == mbRight)
  {
    if ((Shape1->Left + Shape1->Width) < Form1->ClientWidth)
      Shape1->Left++;
  }
  else if (Button == mbLeft)
    if (Shape1->Left > 0)
      Shape1->Left--;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseWheelDown(TObject *Sender,
      TShiftState Shift, TPoint &MousePos, bool &Handled)
{
  if ((Shape1->Top + Shape1->Height) < Form1->ClientHeight)
    Shape1->Top++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseWheelUp(TObject *Sender,
      TShiftState Shift, TPoint &MousePos, bool &Handled)
{
  if (Shape1->Top > 0)
    Shape1->Top--;
}
//---------------------------------------------------------------------------