RSS订阅 | 匿名投稿
您的位置:网站首页 > 技巧 > 正文

Delphi 百度输入提示 Delphi 实现

作者:admin 来源: 日期:2016/1/9 16:12:40 人气: 标签:

我们在百度时,输入部分内容,即可获得输入项选择列表,从而大大减少录入,用户的体验很好,下面是用delphi 模拟这种效果的设计

定义 

    DataLst: TStringList; 

用于存放供选择的数据。



   Edt1:TEdit;

用于接收用户录入



    lbSerach: TListBox;

用于显示提示列表



procedure FillData(DataLst: TStringList );

begin

......

end;



// 在选择列表中的按键处理

procedure TForm1.lbSerachKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

var

  i: Integer;

begin

  if Key = 13 then // 回车键

  begin

    for i := 0 to lbSerach.Items.Count - 1 do // 查找用户选取的数据项

    begin

      if lbSerach.Selected[i] then

      begin

        edt1.Text := lbSerach.Items[i];

        lbSerach.Visible := False;

        edt1.SetFocus;

        Exit;

      end;

    end;

  end else



  if Key = VK_UP then  // 回到编辑框

  begin

    if lbSerach.ItemIndex = 0 then

    begin

      lbSerach.ItemIndex := -1;          // 不起作用

      lbSerach.Selected[0] := False;    // 不起作用

      edt1.SetFocus;

    end;

  end;

end;



// 编辑框内容变化处理

procedure TForm1.edt1Change(Sender: TObject);

var

  i: Integer;

  str: string;

begin

  str := TEdit(Sender).Text;

  lbSerach.Items.BeginUpdate;

  lbSerach.Clear; // 清除以前的内容



  for i := 0 to DataLst.Count - 1 do  // 从可用数据中选出 匹配项 最多 15个

  begin

    if pos(str, DataLst[i]) > 0 then 

    begin

      lbSerach.Items.add(DataLst[i]);

      if lbSerach.Items.Count > 15 then

        Break;

    end;

  end;

  lbSerach.Items.EndUpdate;

  lbSerach.Visible := lbSerach.Items.Count>0;

end;



// 编辑框按键处理

procedure TForm1.edt1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if lbSerach.Visible then

  begin

    if Key = VK_DOWN then

      lbSerach.SetFocus;

    lbSerach.Selected[0] := True;

  end;

end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料