En el listbox:
- extendedselect := false;
- autocomplete := false
- multiselect a true
y en el evento onKeyPress:
Código Delphi
[-]
procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = 'a' then
begin
ListBox1.itemindex := 3;
ListBox1.Selected[3] := True;
Key := #0;
end;
end;
los items que tengo en la lista son:
Código:
aaaas
aaas
aass
ass
bbb
cccc
El foco lo tiene el elemento 0 de la lista. Al pulsar la tecla 'a', se selecciona el 4º elemento, cuando en realidad, no se debería mover del primero según tus pruebas.
¿es eso lo que deseas?
Saludos