BCB窗口任意拖动

最新推荐文章于 2021-05-26 17:03:27 发布

最新推荐文章于 2021-05-26 17:03:27 发布 · 402 阅读

文章标签：

#bcb窗口任意拖动

bcb 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个简单的窗体拖动实现方法，通过处理鼠标按下、移动和释放事件来更新窗体的位置。

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

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

void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if(bMouseDown)
{
// DoubleBuffered = True;
Form1->Left = Form1->Left + X - iX;
Form1->Top = Form1->Top + Y - iY;
Edit1->Text = Form1->Left + X - iX;
Edit2->Text = Form1->Top + Y - iY;

}
}