2 mal klicken?!

[JasonDX]

am einfachsten geht das so:

Delphi-Quellcode:

var
  ind: byte = 0;

//im onClick:
const
  farben: array[0..2] of TColor = (clBlack, clRed, clBlue);
begin
  self.Color := farben[ind];
  ind:= (ind+ 1) mod length(farben);
end;

dürfte einwandfrei klappen, und das hinzufügen von Farben is dann auch nicht mehr allzuschwer

greetz
Mike