no me doy cuenta....
 

tengo dos combos, cuando se pone en realizada o pendiente uno, se fija q el otro no este igual, si es asi (q el otro esta realizada o pendiente) pone este combo en NO DISPONIBLE y muestra un mensaje. El tema es pone en no disponible el combo, pero despues del msg y sin que se haga nada mas, vuelve a poner el combo en otro valor. Q estoy haciendo mal? Les dejo el simple codigo

Código Delphi [-]
if (Combo1.text = 'Realizada') or (Combo1.text = 'Pendiente')
then
    begin
    if (Combo2.text = 'Realizada') or (Combo2.text = 'Pendiente')
    then
      begin
        Combo1.Text := 'No Disponible';
        cad := 'La propiedad esta marcada en Venta, si quiere colocarla';
        cad := cad + ' también en Alquiler debe ingresar nuevamente la Propieda o ';
        cad := cad + 'desactive la sección de Venta';
        ShowMessage(cad);
      end;
    end;

Hola

por que no tratas mejor con la propiedad ItemIdex.... asi te quedaria algo así

Código Delphi [-]
if (Combo1.ItemIdex = 0) or (Combo1.ItemIndex = 1)then    begin
      // Por que aquí preguntas lo mismo pero con otro combo ???
      if (Combo2.ItemIdex = 0) or (Combo2.ItemIndex = 1)    then      begin        Combo1.Text := 'No Disponible';        cad := 'La propiedad esta marcada en Venta, si quiere colocarla';        cad := cad + ' también en Alquiler debe ingresar nuevamente la Propieda o ';        cad := cad + 'desactive la sección de Venta';        ShowMessage(cad);      end;    end;

Salu2:p:D

ok lo voy a probar
 

pruebo y aviso

Mira...

realice esto .. puse 2 combobox... con el mismo texto (disponible - no disponible)

y en el evento onchance de cada combo puse esto.. y funciona super...

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
     If ComboBox1.ItemIndex = 0 Then
        ComboBox2.ItemIndex := 1
     Else
        ComboBox2.ItemIndex := 0;
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
     If ComboBox2.ItemIndex = 0 Then
        ComboBox1.ItemIndex := 1
     Else
        ComboBox1.ItemIndex := 0;
end;

Salu2:p:D

anduvo
 

anduvo muchas gracias