Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Extraño comportamiento de un ComboBox (https://www.clubdelphi.com/foros/showthread.php?t=74668)

r1d2m3 03-07-2011 01:11:40

Extraño comportamiento de un ComboBox
 
Hola amigos, estoy teniendo un extraño comportamiento con un componente combobox, el tema es así, debo realizar una serie de cosas dentro del evento OnChange, y luego, a elección del operador y usando un botón, limpio la selección que hay en el combobox realizando lo siguiente:

cbbClientes.ItemIndex:=-1;

hasta aqui todo bien, solo que cuando quiero volver a usar y seleccionar el mismo elemento que tenía en el combobox previo a la limpieza, el evento OnChange no se dispara, debo forsozamente seleccionar otro elemento distinto del último seleccionado y ahí si se dispara el evento. La verdad es que así no me sirve porque a veces el operador debe volver a realizar nuevamente la misma selección y, tal como les comenté, no puedo atrapar el OnChange posterior a la limpieza mediante cbbClientes.ItemIndex:=-1;

Bueno, espero haber sido claro presentando el problema, quedo a la espera de alguna ayudita, saludos a todos.

ecfisa 03-07-2011 08:03:35

Hola r1d2m3.
Cita:

cuando quiero volver a usar y seleccionar el mismo elemento que tenía en el combobox previo a la limpieza, el evento OnChange no se dispara
Si lo queres seleccionar asignando el índice a la propiedad ItemIndex no tiene nada de extraño, es el comportamiento esperado.
En la ayuda de Delphi, TComboBox -> Events -> OnChange dice:
Cita:

Occurs when the user changes the text displayed in the edit region
(Ocurre cuando el usuario cambia el texto que aparece en el área de edición)

Y como el usuario en ningún momento cambia el texto en el área de edición, el evento no se dispara.

Basta con hacer una simple prueba para verificar que en ningún caso el cambio del valor de ItemIndex dispara el evento OnChange:
Código Delphi [-]
...

procedure TForm1.btnLimpiaClick(Sender: TObject);
begin
  ComboBox1.ItemIndex:= -1;  // no dispara OnChange
end;

procedure TForm1.btnSeleccionaClick(Sender: TObject);
begin
  Randomize;
  ComboBox1.ItemIndex:= Random(9); //(1/10 items al azar), no dispara OnChange
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  ShowMessage('OnChange');
end;
...

Saludos.

r1d2m3 09-07-2011 17:36:45

Hola, gracias por la respuesta y perdón por demorar la mia. Gracias a tu comentario, pude resolver la cuestión que tenía pendiente.

Nuevamente gracias y saludos.


La franja horaria es GMT +2. Ahora son las 14:34:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi