Delphi閃爍，WM_ERASEBKGND

尽量减少对窗口DC的操作次数！

解决方法：

重载 procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;

把这句写在类的声明区域


procedure TRight2BarControl.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
  Message.Result:=1;
end;

轉貼至:https://zhidao.baidu.com/question/316842896.html