{
防止刷新时闪烁的终极解决办法(对付双缓冲无效时)
}
Perform($000B, 0 , 0 ); // 锁屏幕 防止闪烁
// 做一些会发生严重闪烁的事情..
// 解锁屏幕并重画
Perform($000B, 1 , 0 );
RedrawWindow(Handle, nil , 0 , RDW_FRAME + RDW_INVALIDATE + RDW_ALLCHILDREN + RDW_NOINTERNALPAINT);
Perform($000B, 0 , 0 ); // 锁屏幕 防止闪烁
// 做一些会发生严重闪烁的事情..
// 解锁屏幕并重画
Perform($000B, 1 , 0 );
RedrawWindow(Handle, nil , 0 , RDW_FRAME + RDW_INVALIDATE + RDW_ALLCHILDREN + RDW_NOINTERNALPAINT);