Tema: Leer un edit
Ver Mensaje Individual
  #9  
Antiguo 19-03-2008
JoseFco JoseFco is offline
Baneado
 
Registrado: dic 2007
Posts: 1.861
Reputación: 0
JoseFco cantidad desconocida en este momento
Hola amigos.

Le cambie algunas cosas a mi codigo:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
case ComboBox1.ItemIndex of
3,4: Shape1.Brush.Color := clRed;
5,6: Shape1.Brush.Color := clYellow;
7,8,9,10,11,12: Shape1.Brush.Color :=clGreen;
else Showmessage('Este programa no soporta ese valor');
end;
end;

Copila bien (no da error) pero no funciona como esperaba. En el evento del boton solo hace Showmessage.
Algo anda mal aqui jajajajaja no se rian recuerden que son novato.
Me hace falta una ayudadita con esto.
PD: si seleciono el 3,4 o el 5 me da Showmessage. Si seleciono 6 o el 7 el shape se pone color rojo. Si seleciono 8 o 9 el shape se pone amarillo y si seleciono 10,11 o el 12 me da verde.

Un Saludo.

Última edición por JoseFco fecha: 19-03-2008 a las 01:58:30.
Responder Con Cita