[轉]delphi 防止刷新時閃爍的終極解決辦法

{ 防止刷新時閃爍的終極解決辦法(對付雙緩衝無效時) }
Perform($000B, 0, 0); //鎖屏幕 防止閃爍

// 做一些會發生嚴重閃爍的事情..

//解鎖屏幕並重畫
Perform($000B, 1, 0);
RedrawWindow(Handle, nil, 0, RDW_FRAME + RDW_INVALIDATE + RDW_ALLCHILDREN + RDW_NOINTERNALPAINT);

http://www.delphitop.com/html/chengxu/1813.html