如何实现象IE的地址栏一样的combobox？？？就是说当chang时自动列出关于combobox.text的内容！！！

Question

在OnChange事件里，搜索能匹配用户已经输入的内容，然后将搜索到的内容添加到ComBox就行了—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

如果你是要显示数据一类的东西，你可以在Change时将Combobox自动下拉，再根据你输入的内容进行一下模糊查找，将查找出来的内容Add进你的Combobox中去就行了！

Answer 2

每次用户输入的信息都保存起来的啊；
OnChange时，动态加了进行就是了；可以用流、TStream;TmemStream;FileStream;
嘻嘻；

Answer 3

每次用户输入的信息都保存起来的啊；
OnChange时，动态加了进行就是了；可以用流、TStream;TmemStream;FileStream;
嘻嘻；

Answer 4

为什么一定要用图表呢？显示效果一样，但是更消耗资源。用字符可以这样：
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var s: String;
begin
  s := Column.Title.Caption;
  if Pos('↑',s)=1 then
    Column.Title.Caption := '↓' + Copy(s,3,Length(s)-2)
  else if Pos('↓',s)=1 then
    Column.Title.Caption := '↑' + Copy(s,3,Length(s)-2)
  else
    Column.Title.Caption := '↑' + Column.Field.DisplayLabel;
  //排序操作
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 5

为什么一定要用图表呢？显示效果一样，但是更消耗资源。用字符可以这样：
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var s: String;
begin
  s := Column.Title.Caption;
  if Pos('↑',s)=1 then
    Column.Title.Caption := '↓' + Copy(s,3,Length(s)-2)
  else if Pos('↓',s)=1 then
    Column.Title.Caption := '↑' + Copy(s,3,Length(s)-2)
  else
    Column.Title.Caption := '↑' + Column.Field.DisplayLabel;
  //排序操作
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————