Fórum Alterar a Cor da Barra de Titulo Ativa ( Caption ) do Form #270464

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;