德尔福XE3 TStatusBar重绘

Question

我似乎无法得到状态栏更新/刷新/重绘：

TopFormmlcmpStatusPanel1.Invalidate; 
    SendMessage(TopFormmlcmpStatusPanel1.Handle, WM_PAINT, WParam(0), LParam(0)); 

在另一个场景中我曾尝试：

SendMessage(TopFormmlcmpStatusPanel1.Handle, WM_ERASEBKGND, WParam(0), LParam(0)); 

我只是想重绘状态栏与更新的颜色。

Answer 1

我假设TopFormmlcmpStatusPanel1是TStatusBar类型。

您不发送WM_PAINT或WM_ERASEBKGND消息。系统做到了。

您的代码：

TopFormmlcmpStatusPanel1.Invalidate; 

将导致一个新的油漆循环。当消息循环下一次清空时，将产生一个绘画循环并且控件将被重新绘制。

或者您可以使用：

TopFormmlcmpStatusPanel1.Refresh; 

如果你想控制，应立即重新上漆。

所以，我想你的问题比你想象的更微妙。我的期望是，您的控件是由系统使用系统主题绘制的。而您尝试改变颜色根本无法产生任何效果，因为主题会覆盖控件的颜色属性。没有SSCCE，很难确定这是否是问题。

---

在评论中您声明您的控件是所有者绘制的。可以想象，你的老板画代码有问题。我显然无法评论我无法观察到的代码。但是，我会重申一个事实，即Invalidate和Refresh方法都会导致绘制循环。