[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.