跪求解答：鼠标拖动出现一个虚线框，在框内动态生成一个窗口解决思路

跪求解答：鼠标拖动出现一个虚线框，在框内动态生成一个窗口
如题，我想用鼠标拖动时出现一个矩形虚线框（就像在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;
}
//---------------------------------------