跪求解答:鼠标拖动出现一个虚线框,在框内动态生成一个窗口
如题,我想用鼠标拖动时出现一个矩形虚线框(就像在Windows的桌面上拖动鼠标一样),松开鼠标后虚线框范围内生成一个新窗口
我邮箱是yanziyi290@163.com
qq 592392340
希望各位高手指点一下,感激不尽!
[解决办法]
已經發送了一個畫圖的小程序
裏面有“鼠标拖动时出现一个矩形虚线框”的部份
[解决办法]
hehe
有个性
参观
[解决办法]
//---------------------------------------
int x0,y0,y1,x1;
int flag=0;
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
x0=X;
y0=Y;
flag=1;
}
//---------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
x1=X;
y1=Y;
if(flag)
{
Form1->Canvas->LineTo(x0,y0);
Form1->Canvas->LineTo(x0,y1);
Form1->Canvas->LineTo(x1,y1);
Form1->Canvas->LineTo(x1,y0);
Form1->Canvas->LineTo(x0,y0);
//下边把原来的划线去掉
}
}
//---------------------------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
flag=0;
}
//---------------------------------------