偶有很好的一段代码,楼主你可以试一下procedure TFormBookRF.cmb_VoyagebyCTNNoKeyPress(Sender: TObject; var Key: Char); begin comboboxpopup(sender, key); if (key = #13) then PostMessage(cmb_VoyagebyCTNNo.Handle, WM_KEYDOWN, VK_TAB, 1); if (key = #9) then begin cmb_VoyagebyCTNNoExit(Sender); end; end;procedure TFormBookRF.cmb_VoyagebyCTNNoExit(Sender: TObject); begin // end; 偶的CMB是cmb_VoyagebyCTNNo作用是在combox中输入字母可以自动跳到对应,而且可以同时对应多个字母,而楼上都只能对应第一字母回车就调用COMBOX的退出事件
var Key: Char);
begin
comboboxpopup(sender, key);
if (key = #13) then
PostMessage(cmb_VoyagebyCTNNo.Handle, WM_KEYDOWN, VK_TAB, 1);
if (key = #9) then
begin
cmb_VoyagebyCTNNoExit(Sender);
end;
end;procedure TFormBookRF.cmb_VoyagebyCTNNoExit(Sender: TObject);
begin
//
end;
偶的CMB是cmb_VoyagebyCTNNo作用是在combox中输入字母可以自动跳到对应,而且可以同时对应多个字母,而楼上都只能对应第一字母回车就调用COMBOX的退出事件