Evitar que se "repinte" un componente

[[Lepe]]

¿ y si pones todo el código en el KeyUp?

dejando vacío el Keydown.

Saludos

[NEG1414]

Lepe parece una respuesta totalmente logica pero nada, hace exactamente lo mismo..

El problema radica en que en un ListBox con una lista de items si se pulsa una tecla el item seleccionado es el primero que comienza por esa tecla.

Mi problema es que no quiero que el listbox opere de esa manera si no ser yo el que manualmente seleccione el item..

Y veo la solucion imposible...

Gracias por contestarme.

[[Lepe]]

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:

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

[NEG1414]

!!! Perfecto !!!

Muchas Gracias.