BCB6 图片在某一区域里拖动代码

最新推荐文章于 2021-01-13 10:26:57 发布

weixin_34364071

最新推荐文章于 2021-01-13 10:26:57 发布

阅读量115

点赞数

本文介绍了一个使用Delphi编程语言实现的简单交互应用，该应用允许用户将图片拖动到面板上的特定区域内。通过定义鼠标事件处理函数，实现图片在用户指定位置的精确放置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "pngimage"
#pragma link "pngextra"
#pragma resource "*.dfm"
TForm1 *Form1;
bool MouseDownBZ;		//鼠标按下标志（自行加入） 
int MouseX;			//鼠标坐标（自行加入）
int MouseY;			//鼠标坐标（自行加入） 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1 (TComponent * Owner):
TForm (Owner)
{
}

//---------------------------------------------------------------------------
void
  __fastcall
TForm1::Image1MouseDown (TObject * Sender,
			 TMouseButton Button, TShiftState Shift, int X, int Y)
{
  MouseDownBZ = true;
  MouseX = X;
  MouseY = Y;
}

//---------------------------------------------------------------------------
void __fastcall
TForm1::Image1MouseMove (TObject * Sender, TShiftState Shift, int X, int Y)
{
  int MinXMove = 0;
  int MinYMove = 0;
  int MaxXMove = Panel1->Width - Image1->Width;
  int MaxYMove = Panel1->Height - Image1->Height;
  int LSXMove = Image1->Left + (X - MouseX);
  int LSYMove = Image1->Top + (Y - MouseY);
  if (MouseDownBZ == true)
    {
      if ((LSXMove >= MinXMove) && (LSXMove <= MaxXMove)
	  && (LSYMove >= MinYMove) && (LSYMove <= MaxYMove))
	{
	  Image1->Left = LSXMove;
	  Image1->Top = LSYMove;
	}
    }
}

//---------------------------------------------------------------------------
void __fastcall
TForm1::Image1MouseUp (TObject * Sender, TMouseButton Button,
		       TShiftState Shift, int X, int Y)
{
  MouseDownBZ = false;
  MouseX = X;
  MouseY = Y;
}

//---------------------------------------------------------------------------
void __fastcall
TForm1::FormCreate (TObject * Sender)
{
  Image1->Parent->DoubleBuffered = true;
}

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

http://down.qiannao.com/space/file/meetrice/-6211-7684-8f6f-4ef6/dragimginarea.rar/.page