请教，cbc下面实现百叶窗的程序为什么不行阿？？
在form中建了一个bitbtn和两个image，其中image1已经load了图片并且visible设为False。image2空白。结果一点击bitbtn，图片位置就变成了白色，请问为什么阿？？
代码如下：
//------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h "
//------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm "
TForm1 *Form1;
//-----------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
//纵向百叶窗效果
Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
Bitmap-> Height = Image1-> Height;
Bitmap-> Width = Image1-> Width;
int w=int((Image1-> Picture-> Bitmap-> Width +19)/20); //每页的宽度
for(int x=0;x <=w;x++)
{
for(int y=0;y <20;y++)
{
Bitmap-> Canvas-> CopyRect(Rect(y*w+x-1,0,y*w+x,
Image1-> Picture-> Bitmap-> Height),Image1-> Picture-> Bitmap-> Canvas,
Rect(y*w+x-1,0,y*w+x,Image1-> Picture-> Bitmap-> Height));
}
Image2-> Picture-> Bitmap-> Assign(Bitmap);
//暂停
::Sleep(100);
Application-> ProcessMessages();
}
delete Bitmap;
}
//------------------------------------
[解决办法]
http://topic.csdn.net/t/20051021/10/4341008.html
[解决办法]
//暂停
::Sleep(100);
Application-> ProcessMessages();
这两句交换一下
[解决办法]
我测试了一下没有问题啊，看看是不是图片格式不对
