delphi防止闪屏
我用delphi的image控件不断载入图片,实现动画,但很闪,用了网上说的Form1.DoubleBuffered:=True;还是没效果,怎么办还是不懂,能不能给个例...
我用delphi的image控件不断载入图片,实现动画,但很闪,用了网上说的Form1.DoubleBuffered:= True;还是没效果,怎么办
还是不懂,能不能给个例子我看看 展开
还是不懂,能不能给个例子我看看 展开
2个回答
展开全部
首先你要知道Image是从TGraphicControl继承的,所以它没有句柄,也设置不了它的DoubleBuffer。
给你2个建议:
1 窗体上DoubleBuffer设为true,重载WM_ERASEBACKGROUND这个消息,让他背景不擦出。
2 自己写个控件从TCustomControl上面继承下来,然后自己用GDI贴图上去。
闪烁主要还是对画布 绘图太频繁了。
我在csdn上面写了一片文章的。
地址应该是hi.csdn.net/huangjacky.
给你2个建议:
1 窗体上DoubleBuffer设为true,重载WM_ERASEBACKGROUND这个消息,让他背景不擦出。
2 自己写个控件从TCustomControl上面继承下来,然后自己用GDI贴图上去。
闪烁主要还是对画布 绘图太频繁了。
我在csdn上面写了一片文章的。
地址应该是hi.csdn.net/huangjacky.
展开全部
你可以用 TPaintBox.Canvas 来代替 TImage.Canvas
然后,在 TPaintBox.onPaint事件中写代码, 载入图片.
或者用 TBitMap 不可视控件.
var
bit :TBitMap;
begin
bit := TBitMap.Create(nil);
bit.picture.loadfromfile('...');
Image1.Canvas.Draw(0,0,bit);
好像是这样子.
然后,在 TPaintBox.onPaint事件中写代码, 载入图片.
或者用 TBitMap 不可视控件.
var
bit :TBitMap;
begin
bit := TBitMap.Create(nil);
bit.picture.loadfromfile('...');
Image1.Canvas.Draw(0,0,bit);
好像是这样子.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |