Ver Mensaje Individual
  #5  
Antiguo 10-02-2008
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 28
Lepe Va por buen camino
En el código asignas las variables, pero no veo donde se usan, así que no puedo saber para qué sirven y si puede eliminarse algunas.

De momento el combo10 y combo11 usan el mismo código y puede compartirse. En el inspector de objetos, para el combo11, elige la misma rutina que para el combo 10 y el código:
Código Delphi [-]
procedure TForm1.ComboBox10Change(Sender: TObject);
begin
// como sabemos que este evento está compartido
// para dos Combobox, el Sender siempre será
// un Tcombobox, por ello no pregunto, directamente
// hago el moldeo de tipos.

// PD: es bueno dejar una línea comentada diciendo
// que el evento se comparte para el combo10 y el 11
// eso te ayudará cuando necesites ampliar esta rutina

  case TCombobox(Sender).ItemIndex of
   -1:muro1:=0 ;
    0:muro1:=50 ;
    1:muro1:=25 ;
  end;
end;

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita