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
Código Delphi
[-]
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;