读书人

很怪怎么让 IMAGE 控件流畅的播放位

发布时间: 2012-04-01 17:23:46 作者: rapoo

很怪,如何让 IMAGE 控件流畅的播放位图?怎么让它在换图的时候不闪烁啊?
我是把IMAGE 控件放在一个第三方控件上的(这个第三方控件是放在PANEL上的),如果我把PANEL的DOCKSITE设置为TRUE,并不设置IMAGE为Transparent,播放位图很流畅,不闪烁;但是这个时候如果不设置IMAGE为Transparent,这样的话它就会把那个第3方控件给挡住……,如果过设置IMAGE为Transparent,这个时候换图就会闪烁的很厉害。 这个是为什么呢?
而我必须得让IMAGE为Transparent。
我想问一下大家,有没有什么方法可以实现IMAGE在换位图的时候能够不闪烁?我写的代码如下,还请大家多多指教。
var
BitMap_Temp : TBitMap;
begin
BitMap_Temp := TBitMap.Create;
if (i mod 24) = 0 then
BitMap_Temp.LoadFromFile('Scan1.bmp')
else if (i mod 24) = 1 then
BitMap_Temp.LoadFromFile('Scan2.bmp')
等等……
else
BitMap_Temp.LoadFromFile('Scan24.bmp');
BitMap_Temp.Transparent := True;
Form1.Image1.Picture.Bitmap := BitMap_Temp;
Inc(i);
end;


[解决办法]
procedure TMainForm.FormCreate(Sender: TObject);
begin
DoubleBuffered := True;
end;

读书人网 >.NET

热点推荐