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

本文整理自网络，侵删。

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

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

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

相关阅读 >>

Delphi sysutils.stringreplace - 替换

Delphi xe的firemonkey获取当前文件所在路径的方法

Delphi 让scrollbox响应鼠标的滚动消息

Delphi 让嵌入窗体的 webbrowser 控件无边框

Delphi 百度输入提示 Delphi 实现

Delphi winapi: extracticon - 获取 exe、dll 或 ico 文件中的图标

Delphi streamtohexstr

Delphi 查询进程名进程id/进程路径 父进程/子进程

Delphi 获取 treeview选中的文件路径

Delphi 创建大窗口

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

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