首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

很怪,怎么让 IMAGE 控件流畅的播放位图?如何让它在换图的时候不闪烁啊

2012-04-01 
很怪,如何让 IMAGE 控件流畅的播放位图?怎么让它在换图的时候不闪烁啊?我是把IMAGE 控件放在一个第三方控

很怪,如何让 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;

热点排行