Question

delphi防止闪屏

我用delphi的image控件不断载入图片,实现动画,但很闪,用了网上说的Form1.DoubleBuffered:= True;还是没效果,怎么办
还是不懂,能不能给个例子我看看

Answer 1

首先你要知道Image是从TGraphicControl继承的，所以它没有句柄，也设置不了它的DoubleBuffer。
给你2个建议：
1 窗体上DoubleBuffer设为true，重载WM_ERASEBACKGROUND这个消息，让他背景不擦出。
2 自己写个控件从TCustomControl上面继承下来，然后自己用GDI贴图上去。

闪烁主要还是对画布 绘图太频繁了。
我在csdn上面写了一片文章的。
地址应该是hi.csdn.net/huangjacky.

Answer 2

你可以用 TPaintBox.Canvas 来代替 TImage.Canvas
然后,在 TPaintBox.onPaint事件中写代码, 载入图片.

或者用 TBitMap 不可视控件.
var
bit :TBitMap;
begin
bit := TBitMap.Create(nil);
bit.picture.loadfromfile('...');
Image1.Canvas.Draw(0,0,bit);
好像是这样子.