Question

delphi combobox 输入时触发onchange为什么光标定位在文本框的最开始

combobox需实现输入时自动匹配功能，当输入时触发onchange事件，每次触发后光标为什么总是定位在开头的位置。

Answer 1

试试写在onKeyUp里。我之前写过类似的。

给你个参考代码：
procedure TMainForm.ComboBox1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var
i: integer;
last: string;
begin
if key = 8 then exit; //退格
if key = 17 then exit; //CTRL
if key = 16 then exit; //CTRL
if key = 18 then exit; //CTRL
if key = 20 then exit; //大小写
if key = 27 then exit; //esc
last:= ComboBox1.Text;
for i:=0 to ComboBox1.Items.Count - 1 do
begin
if Pos(last ,ComBoBox1.Items.Strings[i]) = 1 then
begin
ComboBox1.ItemIndex:= i;
Break;
end;
end;
end;

Answer 2

加一句：
ComboBox1.SelStart := Length( ComboBox1.Text );