：我写了一个构件继承自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;