德爾福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方法都會導致繪製循環。