TListBox. Drop down multiselection

[LemonParty]

I have a list box. MultiSelect is set to true. OnKeyDown event looks like this:

Code: Pascal  [Select][+][-]

1. procedure TFFileList.lbFilesKeyDown(Sender: TObject; var Key: Word;
2.   Shift: TShiftState);
3. var
4.   i: SizeInt;
5. begin
6.   lbFiles.OnKeyDown:= nil;
7.  
8.   case Key of
9.   VK_RETURN: ModalResult:= mrOK;
10.   VK_ESCAPE: ModalResult:= mrCancel;
11.   else if Key >= Byte('A') then begin
12.     i:= Key - Byte('A');
13.     if i < lbFiles.Count then
14.       lbFiles.Selected[i]:= not lbFiles.Selected[i];
15.   end;
16.   end;
17.  
18.   lbFiles.OnKeyDown:= @lbFilesKeyDown;
19. end;

The idea is next – when I press for example 'A' key the first element in list box should be selected (or deselected), so I can select on deselect multiple items. Instead it only selects the last one I pressed and deselect all other choises. What I am doing wrong?

[bytebites]

Form.keypreview:=true?

[LemonParty]

It works. Thank you.

[LemonParty]

It strange. Whan I first time compiled with KeyPreview=True multiselction worked as I want. When I compiled at second time it start work as I initially described.

[LemonParty]

I tryied to reproduce this effect on a smaller project. But in smaller project it works as expected.

[Thaddy]

I tryied to reproduce this effect on a smaller project. But in smaller project it works as expected.

Sigh, we can't debug for you what else you are doing wrong without seeing all the sourcecode that reproduces the issue.
By  now, you know that!.

When one of the helpers on this forum see all sourcecode the problem would have been solved.
Most helpers can be sent a private message.

[LemonParty]

Here is the project. It require sqlite3.dll.

When program is opened press "D". Will be opened form FFileList. In this form occur the problem.

[bytebites]

Add key:=#0 at the end of the keydown event.

[LemonParty]

It helped. Thank you.