小弟目前開發的程式, 會在一個TTabSheet上放滿一個一個排列整齊的格子, 每個格子上都需要寫上一些文字,我的程式結構為Form上面放了一個TMyPageCtrl,TMyPageCtrl上放個TMyTabSheet,TMyTabSheet放一堆TPanelDraw.. 其中 TMyPageCtrl繼承自TPageControl, TMyTabSheet繼承自TTabSheet, TPanelDraw繼承自TPAnel. 現在問題是, 1. 當TPanelDraw需要重繪時, 它會收到WM_PAINT嗎? 我看Online Help裡頭的OnPaint,發現只有少數幾個元件具有OnPaint的event. 2. 是否有元件不會收到WM_PAINT, 那他們如何處理需要重繪的需要? 3. 為什麼Form的重繪機制是FormPaint(), PaintBox的是PaintBoxPaint(),而不需要攔截WM_PAINT? 謝謝大家 !

引言: 小弟目前開發的程式, 會在一個TTabSheet上放滿一個一個排列整齊的格子, 每個格子上都需要寫上一些文字,我的程式結構為Form上面放了一個TMyPageCtrl,TMyPageCtrl上放個TMyTabSheet,TMyTabSheet放一堆TPanelDraw.. 其中 TMyPageCtrl繼承自TPageControl, TMyTabSheet繼承自TTabSheet, TPanelDraw繼承自TPAnel. 現在問題是, 1. 當TPanelDraw需要重繪時, 它會收到WM_PAINT嗎? 我看Online Help裡頭的OnPaint,發現只有少數幾個元件具有OnPaint的event. 2. 是否有元件不會收到WM_PAINT, 那他們如何處理需要重繪的需要? 3. 為什麼Form的重繪機制是FormPaint(), PaintBox的是PaintBoxPaint(),而不需要攔截WM_PAINT? 謝謝大家 !

cc12345你好： > class="code"> In .h ~~ class TForm1 : public TForm { __published: // IDE-managed Components TPanel *Panel1; void __fastcall FormCreate(TObject *Sender); private: // User declarations TWndMethod OldPanelWndProc; void __fastcall PanelWndProc(TMessage& Message); public: // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; ~~ In .cpp ~~ TForm1 *Form1; int i=0; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { OldPanelWndProc = Panel1->WindowProc; Panel1->WindowProc = PanelWndProc; } //--------------------------------------------------------------------------- void __fastcall TForm1::PanelWndProc(TMessage& Message) { OldPanelWndProc(Message); if (Message.Msg==WM_PAINT) this->Caption=IntToStr( i); } ~~ 上例，可以由i值的變化得知其實TPanel元件是有收到WM_PAINT訊息的!(當然例如TPanel被cover時，然後又被移開時)! 上述的訊息攔截方式並不唯一，以自已習慣就好，參著!

謝謝 m8815010兄, 1. 我試著在您的code加上一行, void __fastcall TForm1::PanelWndProc(TMessage& Message) { OldPanelWndProc(Message); if (Message.Msg==WM_PAINT) { this->Caption=IntToStr( i); Panel1->Caption=IntToStr( i); // 加這一行 } } 發現程式不停的跑, 數字會一直不斷的加, 為什麼Panel會不斷的收到WM_PAINT, 難道是因為每寫一次Caption就觸發一次? 如果是這樣的話, 是不是表示Panel其實是不適合用來畫文字? 2. 這個方法似乎是Form來通知Panel需要重劃了, 有沒有可能是由Panel來自行接收Window所發的重繪message,然後自行重劃一次就好了? 謝謝 !!

引言: 謝謝 m8815010兄, 1. 我試著在您的code加上一行, void __fastcall TForm1::PanelWndProc(TMessage& Message) { OldPanelWndProc(Message); if (Message.Msg==WM_PAINT) { this->Caption=IntToStr( i); Panel1->Caption=IntToStr( i); // 加這一行 } } 發現程式不停的跑, 數字會一直不斷的加, 為什麼Panel會不斷的收到WM_PAINT, 難道是因為每寫一次Caption就觸發一次? 如果是這樣的話, 是不是表示Panel其實是不適合用來畫文字? 2. 這個方法似乎是Form來通知Panel需要重劃了, 有沒有可能是由Panel來自行接收Window所發的重繪message,然後自行重劃一次就好了? 謝謝 !!

cc12345兄你好： 是這樣的，例如這一行： < class="code">Panel1->Caption="12345"; 當你執行這一行時，Panel1的caption會被重設成"12345"，然而實際上底層的運作是Panel1元件重繪一次，所以重繪完後自然新的caption也就繪上去了!所以事實上Panel元件是這樣達成你的一個重設caption的指令!也就是說其實它收到一次WM_PAINT訊息，為了你這行指令! 所以說由於你多加了那一行，導至Panel元件一有收到WM_PAINT時，就會執行你加的那一行，而那一行又觸發另一個WM_PAINT訊息、……一直recursive下去! 所以它本身接收message並沒問題，是你加的那一行導至它這樣的運作了! 關於第二點，不管什麼元件，一定是收到一個WM_PAINT訊息，則執行一次重繪動作，因為windows世界是message trigger的! 至於訊息發送過程我的經驗是，user先造成了需要重繪的因，如你托了一個視窗把Panel物件蓋著，接著再移開這個視窗，造成Panel需要重繪!於是O.S.最先知道這件事，然後O.S.告訴你寫的Application，application再把WM_PAINT送給裏面的Panel元件，而元件收到訊息後，再依訊息的種類去做該做的事! 我的感覺，在builderc中，你要說是application送WM_PAINT給panel，或是說Form1(panel的父親)送給panelWM_PANIT都可以的! 反正重點就是元件收到WM_PAINT一次，才會repaint自已一次，系統也不會沒事狂送很多個WM_PAINT給它! 小小心得!

多謝 m8815010兄, 再請教一個問題, 我的程式結構為 Form -- --- PageControl -- --- TabSheet -- --- Panel 我在Panel上按下mouse, 可否攔到message ? 及其click時, 相對於Form or PageControl or TabSheet 任一parent的座標位置 ? 謝謝 !

引言: 多謝 m8815010兄, 再請教一個問題, 我的程式結構為 Form -- --- PageControl -- --- TabSheet -- --- Panel 我在Panel上按下mouse, 可否攔到message ? 及其click時, 相對於Form or PageControl or TabSheet 任一parent的座標位置 ? 謝謝 !

cc12345兄你好： 可以的，直接利用 class="code">ClientToScreen(); ScreenToClient(); All!