继续问：在窗口上画矩形框为啥这么难。郁闷

lala1205

下面是代码，
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Brush->Style=bsClear;
}
//---------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
   if(Shift.Contains(ssLeft))
   bMouseDownFlag=true;
   pt.x = X;
   pt.y = Y ;
}
//---------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if(bMouseDownFlag)
{
this->Refresh();
this->Canvas->MoveTo(pt.x,pt.y);
this->Canvas->LineTo(pt.x,Y);
this->Canvas->MoveTo(pt.x,Y);
this->Canvas->LineTo(X,Y);
this->Canvas->MoveTo(X,Y);
this->Canvas->LineTo(X,pt.y);
this->Canvas->MoveTo(X,pt.y);
this->Canvas->LineTo(pt.x,pt.y);
}
}
//---------------------------------------
void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    if(bMouseDownFlag)
    {this->Refresh();
    this->Canvas->Rectangle(pt.x,pt.y ,X,Y);
    bMouseDownFlag=false;}
}
郁闷，现在的问题是如果去掉FormCreate中的代码 Brush->Style=bsClear;那么完全可以实现在form上画矩形的功能，并且每次画新的矩形时之前一个先画的矩形都会擦除掉。
可是加上FormCreate中的代码 Brush->Style=bsClear;后，问题就来了，首先 1。是在画矩形的过程中有很多重叠的痕迹，2。每次画新的矩形时之前一个先画的矩形不会擦除掉。
请问这是为什么呢？怎么解决。我想在加上FormCreate中的代码 Brush->Style=bsClear 的前提下 在form中画矩形，并且克服上面2个问题，请大家帮忙啊
谢谢

zhongshuan

用pmXor画一次就擦除原来的,然后再画就可以了,而且直接用rectangle就行不用lineto几次
所以你的move最好改改

mad_diablo

Brush->Style=bsClear
改为
Brush->Style=bsBlod

baiyunyy

哇    ！我也为只有我还在用这给软件 。