Ayuda con código en delphi

[nico.white]

Hola amigos buenas tardes, tengo el siguiente problema:

Eh creado un botón y al lado un shape... lo que quiero q haga es que al pulsar el boton cambie de color el shape.

lo hace pero el form cambia su color a negro la verdad nose donde esta el problema. pq solo tengo eso en el código.

desde ya muchas gracias por la pronta respuesta

begin
color := random(7);
case ( color ) of
1 : shape1.brush.color := clRed;
2 : shape1.brush.color := $000080FF;
3 : shape1.brush.color := clYellow;
4 : shape1.brush.color := clLime;
5 : shape1.brush.color := clGreen;
6 : shape1.brush.color := clBlue;
7 : shape1.brush.color := clNavy;
end;
end;

[egostar]

Hola

Estás utilizando la propiedad Color del Form.

Cuando haces esto:

color := random(7);

En realidad estás haciendo ésto:

Form1.Color := random(7);

Para que eso no te suceda debes de utilizar una variable como te muestro a continuación


procedure TForm1.Button1Click(Sender: TObject);
var
colorTmp: Integer;
begin
colorTmp := random(7);
case ( colorTmp ) of
1 : shape1.brush.color:=clred;
2 : shape1.brush.color:=$000080FF;
3 : shape1.brush.color:=clyellow;
4 : shape1.brush.color:=clLime;
5 : shape1.brush.color:=clgreen;
6 : shape1.brush.color:=clBlue;
7 : shape1.brush.color:=clnavy;
end;
end;



Saludos

[nico.white]

Muchisimas gracias ! lo voy a tener en cuenta para más adelante si bien habia declarado una variable "color" y seguia haciendo lo mismo (pq tomaba el del form) cambie a colortmp como sugeriste y todo sin problemas. muchisimas gracias por la pronta respuesta. saludos