定義 datalst: tstringlist;
用於存放供選擇的資料。
edt1:tedit;
用於接收使用者錄入
lbserach: tlistbox;
用於顯示提示列表
procedure filldata(datalst: tstringlist );
begin
end;
// 在選擇列表中的按鍵處理
procedure tform1.lbserachkeydown(sender: tobject; var key: word;
shift: tshiftstate);
vari: 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);
vari: 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;
尋找百度翻譯引數,實現百度翻譯
author runsen 首先要分析瀏覽器是怎麼傳送請求的。構造請求 找到關鍵請求之後,就要分析請求,然後去構造請求。分析請求有一下幾個要素,url,請求方法,請求頭,請求引數。請求引數有七個,可以通過反覆請求然後比較的方法得出from,to是表示翻譯語言的,transtype,means fla...
Vue專案接入百度語音提示
這裡介紹兩種方式 第一種 var text encodeuri 時間滴答滴答就消逝了!new audio http play 第二種 ps 第二種參考網上大神的記錄 建立form引數 var data for var p in param 賦值預定義引數 data.cuid data.cuid da...
百度輸入法評價
2 記住使用者選擇這個方面。這個輸入法。可以非常好的準確的記住我的經常輸入的東西。就好比我的名字。經過幾次的輸入之後。當我只輸入的姓的時候。在旁邊就會自動彈出來我的全名。這樣很方便啊。3 短期刺激 這個輸入法當你輸入幾個字的時候。有乙個按鈕當你點選的會後會生成相關內內容得表情包。各式各樣的供你選擇。...