como cambiar color a un shape

[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