多线程操作界面控件时禁止窗口重画

风神 2021-2-13 279


SendMessage(lv1.Handle, WM_SETREDRAW, 0, 0); //不接收任何重画消息

代码区....

SendMessage(lv1.Handle, WM_SETREDRAW, 1, 0); //接收并响应重画消息 ReDrawWindow(lv1.Handle, nil, 0, RDW_INVALIDATE or RDW_ALLCHILDREN); // 立即重画


从别人代码看到的:

for i := 0 to 1000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(20, y, IntToStr(i)); Form1.Canvas.Unlock; Sleep(1); {以免 Canvas 忙不过来} end;




DelphiTop论坛申明 1、本网站名称:DelphiTop论坛  网址:www.DelphiTop.com
2、专注于互联网分享精神,专注收藏与分享。你薅网友,我就薅你。
3、本站资源,如发现链接失效,可联系QQ 16643506进行反馈,我们会第一时间更新。
最新回复 (1)
  • xjlsoft 2022-2-28 0
    2
    学习了学习了学习了学习了学习了
返回