I am not sure what you have in mind, but here is an attempt:
Manipulate[{NSolve[2 a Q^4 + 5 r^4 (-4 Q^2 -
2 r (-3 M + r) +
3 c r^(1 - 3 \[Omega]) (1 + \[Omega])) == 0,
r, Reals],
Style[{{r -> 1/2 (3 M - Sqrt[9 M^2 - 8 Q^2])},
{r -> 1/2 (3 M + Sqrt[9 M^2 - 8 Q^2])}},
Red]},
{{a, 0}, -1, 1},
{{c, 0}, -1, 1},
{{M, 1}, 0, 2},
{{Q, 1}, 0, 1},
{\[Omega], 0, 1}]