como cambiar color a un shape

[blackpic]

Hola amigo esto tratando de cambiarle el color a un shape..
lo que quiero hacer es lo siguiente el shape es de color negro cuando le doy click este tiene que cambiar de color por ej rojo y cuando le vuelva a dar click este tiene que volver a su color de origen..

logro hacer que cambie el primer color pero no se como retomarlo a su color iniciar...
solo estoy haciendo esto shape1.brush.color:= clred;

agradeceria y les doy las gracias de ante manos...

[dec]

Hola,

Habrá varias formas de hacerlo, aunque todas pasarán por guardar en algún sitio el color "original" o al que quieres "volver". Una variable privada en el formulario en que se encuentra el "TShape" podría servir. Es decir, se trata de guardar el color que te sea menester en una variable, de modo que puedas recurrir a ella cuando te sea menester.

[Khronos]

Hola, si solo quieres esos colores yo usaria esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
If shape1.brush.Color=clBlack then begin
  shape1.Brush.color:=clRed;
end else
shape1.Brush.Color:=clblack;

end;

Si necesitas que cambie mas colores, haría lo que te dijo dec de la variable privada para almacenar el color principal y asignaria el resto de los colores en un array y con una simple funcion irias pasandolos de uno en uno.

Salu2

[blackpic]

Gracias amigo ya esta resuelto