继承自TGraphicControl,但发现在刷新时闪烁很明显

：我写了一个构件继承自TGraphicControl,但发现在刷新时闪烁很明显，请提示一下如何解决？
1. controlstyle := controlstyle + [csOpaque];
2. procedure WMEraseBkgnd(var Message: TMessage); WM_ERASEBKGND;
begin
message.result := 1;
end;
　
　
--------------------------------------------------------------------------------
来自：Aloney 时间：99-12-2 13:08:44 ID:163668
每次更改图象时调用Invalidate;方法！或者在重画之前Canvas.Lock,画完之后Canvas.UnLock;我也写过一个类似的控件没问题的。
　
　
--------------------------------------------------------------------------------
来自：www 时间：99-12-2 18:12:50 ID:163896
如果构件的 ComponentStyle 属性没有包含 csOpaque 旗帜的话，调用
Invalidate方法时 会导致构件的背景先被擦掉再重绘。如果你在 Paint 方法中绘制
背景，那你应该在构件的建构函式中加上：
ComponentStyle := ComponentStyle + [csOpaque];
Max Nilson的回答：
引起闪动另一个原因可能是 WM_ERASEBKGND 讯息的处理。当 VCL 控制项
收到一个 WM_ERASEBKGND讯息时，它会将构件的背景擦掉然後配置成预设的颜色。如
果你的元件衍生自TWinControl，而且构件的颜色与背景颜色不同（例如图形），每
次重画以前都会将构件先清成背景颜色再重绘，这就是造成闪动的原因了！
解决的方法不难，你必须告诉 Windows 你要自行解决『所有的』绘图动
作。不过有一个前提是，你一定要确定你的 Paint 方法将整个构件都画过，如果你
漏了什麽地方忘了画，那个节的数据会由乱数组成，你能想见这情况吗？使用这个方
法可以加速你的构件绘制动作（稍微快一点点），因为少了一个填满背景颜色的动
作。
type
TMyComponent = class (TWinControl)
...
protected
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message
WM_ERASEBKGND;
...
end;
procedure TBMyComponent.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
// 不要重绘背景，这会造成构件闪动
Message.Result := 0
end;