Actualizar datos en componente

[dalyla2010]

Haber si te entendi, lo que pasa es que nunca he insertado un object, el object seria como un tag, o una variable al mismo nivel del row en el array del combo. Bueno cambiare mi array por el object haber que pasa y comento.

al igual mi codigo me funciona la primera vez, pero la segunda vez ke cambio la posicion del index no me funciona. Osea no se actualiza. Espero no me pase con el object.

Gracias, comento cuando lo pruebe

[dalyla2010]

No me funciono :s el combo si se lleno, pero no me funciona el SET, el GET no lo he probado.

Modifique para que los resultados sean strings. no me marca error pero igual no hace lo que ocupo. O bien si alguien me puede ayudar a corregir mi codigo se lo agradesco.

Los dos codigos no son muy diferentes solo que yo uso un array y ecfisa usa objetos. Aun asi gracias

Código Delphi [-]
 
unit ComboBoxValue;
interface
uses
  SysUtils, Classes, Controls, StdCtrls;
type
  TComboBoxValue = class(TComboBox)
  private
    { Private declarations }
  protected
    function GetValueIndex:string;
    procedure SetValueIndex(valor:string);
    { Protected declarations }
  public
    procedure Add(S, V:string);
    property ValueIndex :string  read GetValueIndex  write SetValueIndex;
    { Public declarations }
  published
    { Published declarations }
  end;
procedure Register;
implementation
 
procedure Register;
begin
  RegisterComponents('Samples', [TComboBoxValue]);
end;
procedure TComboBoxValue.Add(S, V: string);
begin
Items.AddObject(S, TObject(V));
end;
 
procedure TComboBoxValue.SetValueIndex(valor:string);
var i:integer;
begin
for I := 0 to ItemCount - 1 do
  begin
    if Items.Objects[i] = TObject(valor) then
       ItemIndex := Items.IndexOfObject(TObject(valor));
  end;
end;
 
function TComboBoxValue.GetValueIndex:string;
begin
if ItemCount > 0 then
  Result:= string(Items.Objects[ItemIndex]) 
else
  result := '1';
end;
 
End.

[dalyla2010]

El problema que tengo en mi componente es cuando asigno a Text

Por decir quier inicializar mi formulario y si lo hago asi:

Combo.Text := '';

Me da problemas con mi componente y no lo manda a itemIndex := -1;

y de ahi en adelante el combo responde despues de que entro a el con un clic o algo ya vuelve a funcionar. Pero no me respeta lo que hago por codigo antes de eso.

Sin embargo si yo le pongo :

Combo.ItemIndex := -1;

Funciona correctamente. Supongo que tengo que heredar la propiedad Text y al no estar en la lista lo deje en Itemindex -1.

Saludos