Alterar a Cor da Barra de Titulo Ativa ( Caption ) do Form

Question

Preciso alterar a cor de fundo da barra de titulo ativa ( caption ) de um form em tempo de programa��o. Como posso fazer isso

Beppe · Answer

M� complicado...vc ter� que repintar toda ela(�cone e bot�es, se deseja pintar o fundo)

private
  procedure WMNCPaint(var Message: TWMNCPaint); message WM_NCPAINT;
...
procedure TForm1.WMNCPaint(var Message: TWMNCPaint);
var
  DC: HDC;
  M: TNonClientMetrics;
  B: Integer;
begin
  inherited;
  M.cbSize := SizeOf(M);
  SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @M, 0);
  B := M.iBorderWidth * 4;
  DC := GetWindowDC(Handle);
  try
    Rectangle(DC, B, B, B + ClientWidth, B + M.iCaptionHeight);
    DrawIcon...
    DrawFrameControl...
  finally
    ReleaseDC(Handle, DC);
  end;
end;