Delphi 7 - změna barvy formuláře na jedno tlačítko

[lukenol]

Ahoj, mám problém, jak mám změnit v Delphi 7 barvu formuláře na jednom tlačítku? Vím, že u dvou barev to je takhle :
if Form1.Color=clRed then Form1.Color:=clGreen else Form1.Color:=clRed;

Ale jak do toho zakomponovat další barvy? Např. modrou? Díky, moc mi to pomůže-.

[Pavel.P.]

mělo by stačit rozvinout podmínky:

if něco then
begin
něco;
něco;
...
end
else
begin
něco;
něco;
...
end;

nebo stačí vynechat begin pod if a jen rozvinou else

[keistown]

Nebo jednodusseji

if red then green
if green then blue
if blue then yellow
if yellow then red


ale myslim ze nam rikali ze to neni uplne spravne ptze ty ify nemaj else.

[Pavel.P.]

nebo to dat do case a poté jen podmínkama volit hodnoty barev, najdi si na netu příkaz case a pochopíš, to je asi nejlepší...

[lukenol]

Tak, už to je jak má být. Děkuji za rady