d6的自带此功能
如果自己写的话(直接从我的程序中COPY来的)
with ComboBox_UserName do
begin
if Tag=1 then
Exit;
for i := 0 to Items.Count-1 do
if Pos(LowerCase(Text),LowerCase(Items.Strings))=1 then
break;
if i<Items.Count then
begin
j := Length(Text);
Text := Items.Strings;
i := Length(Text);
SelStart := j;
SelLength := i-j;
end;
end;