lol战争学院维护:舟--关于VC的一个程序错误

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/24 23:24:40
这个程序主要是在桌面上画一个可以移动的圆,但是我找不到错误到底出在哪了,请各位高手指正,谢谢.
#include<winuser.h>
#include<wingdi.h>
void _fastcall TForm1::FormCreate(TObject *Sender)
{
BorderStyle=bsNone;
Timer1->Enabled=false;
Timer1->Interval=150;
SetWindowRgn(Form1->Handle,CreatEllipticRgn(0,0,80,80),true);
}
void _fastcall TForm1::FormPaint(TObject *Sender)
{
Canvas->Pen->Width=1;
Canvas->Pen->Style=psSolid;
Canvas->Pen->Color=clRed;
Canvas->Brush->Color=clRed;
Canvas->Ellipse(0,0,79,79);
}
void _fastcall TForm1::FormMouseDown(TObject *Sender,TMouseButton Button,TShiftState Shift,int X,int Y)
{
if(Button==mbLeft)
Timer1->Enabled=true;
if(Button==mbRight)
Close();
}
void _fastcall TForml::Timer1Timer(TObject *Sender)
{
if(Form1->Top==1)
Form1->Top=Form1->Top-2;
else
Timer1->Enabled=false;
}

估计你是中了冲击波之类的病毒了,请立即查杀病毒。