一个屏幕不断闪烁的问题
我要写一个“摇奖”的小软件,按下开始按钮的时候打开一个数据集,并启动Timer。。。。下面这段是写在Timer事件里的:
with qryWzj do
begin
If Eof then
First;
// LockWindowUpdate(frmMain.Handle);
lable.Caption:='姓名: '+FieldByName('姓名').AsString;//Lable 是一个Lable
// Img_back.Canvas.TextOut(1,50,FieldByName('姓名').AsString);//Img_back 是一个Image控件
// LockWindowUpdate(0);
Next;
If Eof then
First;
end;
如果直接用TextOut输出字符串到Img_back上的BMP图上,屏幕会闪得很厉害,如果在Image控件上放一个Lable,那个Lable 会闪得很厉害,屏幕其它地方不闪(Lable 设为透明)。请教怎样解决???