delphi 防止刷新时闪烁的终极解决办法

本文整理自网络，侵删。

  { 防止刷新时闪烁的终极解决办法(对付双缓冲无效时) }
Perform($000B, 0, 0); //锁屏幕 防止闪烁

// 做一些会发生严重闪烁的事情..

//解锁屏幕并重画
Perform($000B, 1, 0);
RedrawWindow(Handle, nil, 0, RDW_FRAME + RDW_INVALIDATE + RDW_ALLCHILDREN + RDW_NOINTERNALPAINT);
 

相关阅读 >>

Delphi通过spcomm com口发短信包括pud编码解码

Delphi md5单元文件

Delphi窗口最小化和还原事件捕获

Delphi之屏幕和窗口的坐标

Delphi 检测一个网络连接是否有效带超时

Delphi fmx 安卓跳转到支付宝付款页面

Delphi tstringstream 简单用法

Delphi string转unicode

Delphi 10.4.1 edgebrowser 模拟操作网页方法

Delphi access 从数据库里随机选择一行

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 防止刷新时闪烁的终极解决办法