Evento OnChange ComboBox no se dispara

[Jose Roman]

Hola amigos,

Tengo una serie de tareas a realizar en el evento OnChange, para limpiar la selección utilizo ComboBox.ItemIndex := -1; pero al seleccionar el mismo item no se dispara el evento OnChange, solo si haga una selección de otro item distinto al anterior, que puedo hacer para solucionar este impase?

[[Al González]]

Es lo que se espera de un evento OnChange: que se dispare sólo si lo que tiene que cambiar cambia.

¿Cuál es el problema real?

[ecfisa]

Hola Jose Roman.

El evento OnChange se dispara cuando el usuario modifica el texto del área de edición (Extraño comportamiento de un ComboBox).

Saludos

[[Al González]]

Ah, ya vi por dónde iba la pregunta...

[Casimiro Notevi]

Empezado por Jose Roman

al seleccionar el mismo item no se dispara el evento OnChange

Menos mal

[Jose Roman]

Entonces debo modificar el texto y después realizar el Itemindex := -1 ?

[ecfisa]

Hola Jose Roman.

La verdad es que no entiendo que es lo que deseas hacer, pero si buscas capturar un cambio en el valor ItemIndex de un TComboBox, se me ocurre esto:

Código Delphi [-]
...
type
  TComboBox = class(StdCtrls.TComboBox)
  private
    procedure WndProc(var Msg: TMessage); override;
  end;

  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

...
implementation

...

procedure TComboBox.WndProc(var Msg: TMessage);
begin
  if Msg.Msg = CB_SETCURSEL then
    ShowMessage(Format('Cambio ItemIndex en %s', [Name]));
  inherited;
end;

//llamada
procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.ItemIndex:= Random(ComboBox1.ItemCount);
end;

Saludos