Autocompletar en TEdit

[santiago14]

Muestro lo que hice yo, de seguro este es el problema....

Código Delphi [-]
unit oAutocompletarCombo;

interface

uses
  StrUtils, Classes, Messages, Controls, SysUtils, Windows, StdCtrls;

type
  TComboBoxAutocomplete = class(TComboBox)
  private
    CtrlLoad : Boolean;
    UnFlicker : Boolean;
    UpDown : Boolean;
    AuxText : String;
    HistoryName : String;
    StoredItems : TStringList;
    CountItems : Byte;
    procedure FilterItems;
    procedure CNCommand(var Message: TWMCommand); Message CN_COMMAND;
  public
    procedure StoredItemsChange(Sender: TObject);
    procedure LoadHistory(FileHistory : String = ''; CountHistory : Byte = 10);
      procedure ComboExit(Sender: TObject);
    procedure ComboCloseUp(Sender: TObject);
    procedure ComboKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    constructor Create(Owner: TComponent); override;
    destructor Destroy; override;
  end;

implementation

{$R *.dfm}

constructor TComboBoxAutocomplete.Create(Owner: TComponent);
begin
   inherited;
   AutoComplete := False;
   StoredItems := TStringList.Create;
   StoredItems.OnChange := StoredItemsChange;
   Self.OnExit := ComboExit;
   Self.OnCloseUp := ComboCloseUp;
   Self.OnKeyDown := ComboKeyDown;
   UnFlicker := False;
   CtrlLoad := False;
end;

destructor TComboBoxAutocomplete.Destroy;
begin
   StoredItems.Free;
   inherited;
end;

procedure TComboBoxAutocomplete.LoadHistory(FileHistory : String = ''; CountHistory : Byte = 10);
begin
   CtrlLoad := True;
   Self.DropDownCount := CountHistory;
   CountItems := CountHistory;
   if FileHistory = EmptyStr then
      HistoryName := 'History_' + Self.Name + '.txt'
   else
      HistoryName := FileHistory;
   if FileExists(HistoryName) then
      Self.StoredItems.LoadFromFile(HistoryName);
end;

procedure TComboBoxAutocomplete.CNCommand(var Message: TWMCommand);
begin
   inherited;
   if Message.NotifyCode = CBN_EDITUPDATE then
      FilterItems;
end;

procedure TComboBoxAutocomplete.FilterItems;
var
   i : Integer;
   StartPos, EndPos : Integer;
begin
   SendMessage(Handle, CB_GETEDITSEL, WPARAM(@StartPos), LPARAM(@EndPos));
   AuxText := Text;
   if Text <> EmptyStr then
   begin
      Items.Clear;
      for i := 0 to StoredItems.Count - 1 do
      begin
         if PosEx(LowerCase(Text), LowerCase(StoredItems[i])) > 0 then
            Items.Add(StoredItems[i]);
      end;
   end
   else
      Items.Assign(StoredItems);
   if UnFlicker then
      SendMessage(Handle, CB_SHOWDROPDOWN, Integer(True), 0);
   Text := AuxText;
   SendMessage(Handle, CB_SETEDITSEL, 0, MakeLParam(StartPos, EndPos));
   UnFlicker := True;
end;

procedure TComboBoxAutocomplete.StoredItemsChange(Sender: TObject);
begin
   if Assigned(StoredItems) then
      FilterItems;
end;

procedure TComboBoxAutocomplete.ComboExit(Sender: TObject);
var
   i : Integer;
begin
   if (Items.IndexOf(Text) = -1) and (Text <> EmptyStr) and CtrlLoad then
   begin
      StoredItems.Insert(0,Text);
      for i := StoredItems.Count - 1 downto CountItems do
         StoredItems.Delete(i);
      StoredItems.SaveToFile(HistoryName);
      Self.ItemIndex := 0;
   end;
end;

procedure TComboBoxAutocomplete.ComboCloseUp(Sender: TObject);
begin
   If (AuxText <> EmptyStr) and (UpDown = False) then
   begin
      Text := AuxText;
   end;
   UpDown := False;
end;

procedure TComboBoxAutocomplete.ComboKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if (Key = VK_UP) or (Key = VK_DOWN) then
      UpDown := True;
end;

end.