摘要：
今天写给别人的一段代码。View Code procedure TfrmMain.btnXorClick(Sender: TObject);var dc: HDC; x,y: Integer; bmp1,bmp2,bmp3: TBitmap; pt: TPoint;const WW=100; //Width HH=100; //Height XX=100; //X Coordinate YY=100; //Y Coordinate _SLEEP = 100; //Sleep times procedure MySleep(ms:Cardinal); var ... 阅读全文
