Detectar cambio de ItemIndex en ComboBox
 

Hola a todos!!! ;)

Explico: estoy haciendo un componente (derivado de TCustomComboBox), similar a TFilterComboBox, pero que sea compatible con la forma de tratar los filtros en mi programa (que es más simple, como "txt;log;mp3").
El caso es que necesito saber cuándo se modifica la propiedad ItemIndex para colocar el código adecuado para cambiar la propiedad que devuelve el filtro actual.

Muchas gracias de antemano. ;)

Hola,

Acaso fuera bastante recurrir al método "GetItemIndex" de la clase "TCustomCombo", de la que deriva "TCustomComboBox", cada vez que fuera preciso obtener la propiedad correspondiente, ¿o me equivoco? ;)

Sí, ya, o sencillamente a la propiedad ItemIndex, pero... ¿Cuándo la llamo?

Hola,

No entiendo del todo cuando dices "para colocar el código adecuado para cambiar la propiedad que devuelve el filtro actual"...

Lo siento. No me queda claro el asunto... porque,... ¿qué es eso de cambiar la propiedad que devuelve el filtro actual? Cuando se recupera una propiedad en realidad puede estar llamándose a un método, internamente, en la clase a la que pertenezca, entonces...

Código Delphi [-]
type
  TComboBoxEx = class(TCustomComboBox)
  private
    FFilter: string;
    function GetFilter : string;
  published
    property Filter: string read GetFilter write FFilter;
  end;

implementation

{ TComboBoxEx }

function TComboBoxEx.GetFilter: string;
begin
  // Cuando quieres acceder a la propiedad Filter
  // pasas por este método... ¿no podrías aquí hacer
  // lo que te fuera menester? Pregunto. :-)
end;

Nota: Envío este mensaje con cierto resquemor... creo que no estoy entendiendo bien el problema, o, directamente, no sé atar el cascabel al gato, que todo puede ser. ;)

Vamos a ver si te puede servir esto. El objeto TCustomCombobox cuenta con el método Select que se llama cada vez que se selecciona un elemento. Tu solo tienes que implementar ese método en tu nuevo componente.

Código Delphi [-]
type
  TMiCombo = class(TCustomCombobox)
  protected
    procedure Select; override;
  end;

{ TMiCombo }

procedure TMiCombo.Select;
begin
  inherited;
  // Por ejemplo hacemos que pite cada vez que seleccionamos algo
  Windows.Beep(500,100);
end;

Hola,

Pues sí; está bien visto Domingo: parece lo natural. Acaso eso sea, precisamente, lo que necesita el compañero. :)