title: How to customize a scrollbar color?
body: <p>I found some sample code like below, for trying to customize a scrollbar color:</p>
  
  <pre><code>HBRUSH CMainFrame::OnCtlColor(CDC* pDC, CWnd* pWnd, UINT nCtlColor)       
  { 
     HBRUSH hbr = CFrameWnd::OnCtlColor(pDC, pWnd, nCtlColor); 
  
     if(nCtlColor==CTLCOLOR_SCROLLBAR) 
        return m_brColor; 
  
     return hbr; 
  }
  </code></pre>
  
  <p>I found that the following code does not work:</p>
  
  <pre><code>procedure TForm1.WMCTLColor(var msg: TWMCTLCOLOR); message WM_CTLCOLOR;
  </code></pre>
  
  <p>How can I do it in Delphi?</p>