TForm.OnKeyDownのKeyPreviewでのキー処理は、TListBoxで動作しません。

Question

A. VCLフォームアプリケーションを作成します。

C.設定フォームのKeyPreviewプロパティTrueへ：

B.は、たとえば、フォーム上にTListBoxコンポーネントを入れて、デザイン時にいくつかの項目に記入します

D.フォームのOnKeyDownイベントハンドラでは、次のコードを記述してください。

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
begin 
    if Key = VK_BACK then 
    begin 
    if ListBox1.Focused then 
    begin 
     Key := 0; 
     CodeSite.Send('ListBox1 is focused!'); 
    end; 
    end; 
end; 

E.プログラムを実行し、それをクリックすることでItem5を選択：

今ListBox1がフォーカスを持っています。

F.これで、「バックスペース」キーを押します。おそらく、フォームのOnKeyDownイベントハンドラーのKey := 0;を設定すると、BackspaceキーがListBox1コントロールによって処理されないようにブロックする必要があります。しかし、これはあなたが見ることができるように、動作しません：BackSpaceキーはItem5からアイテム1に選択を変更させ：

それでは、どのように私は集中ListBoxコントロールに処理されてからBackSpaceキーを防ぐことができますし、リストボックスの選択を変更するには？

デルファイ10.1ベルリンアップデート2
のWindows 7のx64 SP1

Answer 1

代わりOnKeyPressイベントを使用します。

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); 
begin 
    if Key = #8 then 
    begin 
    if ListBox1.Focused then 
    begin 
     Key := #0; 
     CodeSite.Send('ListBox1 is focused!'); 
    end; 
    end; 
end; 

あなたはいつもOnKeyDownのすべてをブロックすることはできません。