J
juky_ma
Unregistered / Unconfirmed
GUEST, unregistred user!
我在一个Form上放一个Image1,并且它是透明的，如后我在Image1的区域中放2个
Image,分别是Image2,Image3.并且image2,image3之间连一条直线，然后在image2的
mousemove事件中有如下代码进行移动时的重画：
TCanvas *my=Image1->Canvas;
my->Pen->Color=Form1->Color;
my->MoveTo(Image2->Left,Image2->Top);
my->LineTo(Image3->Left,Image3->Top);
Image2->Left=Image2->Left+X;
Image2->Top=Image2->Top+Y;
my->Pen->Color=clBtnText;
my->MoveTo(Image2->Left,Image2->Top);
my->LineTo(Image3->Left,Image3->Top);
但是重画时，屏幕闪烁很厉害，请问该如何消除这一刷新问题？
Image,分别是Image2,Image3.并且image2,image3之间连一条直线，然后在image2的
mousemove事件中有如下代码进行移动时的重画：
TCanvas *my=Image1->Canvas;
my->Pen->Color=Form1->Color;
my->MoveTo(Image2->Left,Image2->Top);
my->LineTo(Image3->Left,Image3->Top);
Image2->Left=Image2->Left+X;
Image2->Top=Image2->Top+Y;
my->Pen->Color=clBtnText;
my->MoveTo(Image2->Left,Image2->Top);
my->LineTo(Image3->Left,Image3->Top);
但是重画时，屏幕闪烁很厉害，请问该如何消除这一刷新问题？