Actualizar datos en componente

[dalyla2010]

Mmm la verdad es que no quiero llenar de componentes la forma y lo que quiero yo es un nuevo componente, un tcombobox con un arreglo dentro de el. Asi como si tuviera dos columnas, solo que no se muestra.

Porque lo ocupo asi en varios formularios. Por decir el formulario de clientes, ocupo el estatus, la colonia, el municipio, el estado, y otras clasificaciones que terminan siendo como 8 combobox, mas 8 datasource, mas 8 tablas, mas 8 dblookupcombobox (o algo asi).

Y como yo lleno estos combos con un componente, asi que lo limpio y lo uso para llenar otro y asi. y con un componente no tengo que estar programando esto cada vez. No se si explique bien mi necesidad.

Pero muchas gracias por tu respuesta

[ecfisa]

Asi como si tuviera dos columnas, solo que no se muestra.

Hola dalyla2010.

Es precisamente como queda el Combobox del ejemplo: Una columna para el nombre del país y otra para su ID.
Es decir que tenés un 'nuevo ItemIndex' que funciona con los ID de los paises en lugar de la posición del item en el combo.

Tendrás que ver eso sí, como implementar la propiedad ItemIndex_ID en tu nuevo componente.

Un saludo.

[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