How to receive TAB key press in edit box?

Question

i want to receive `OnKeyPress` events when the user presses the Tab key. ``` procedure TForm1.Edit1(Sender: TObject; var Key: Char); begin case Key of #09: begin //Snip - Stuff i want to do end; end; end; ``` i try subclassing the `Edit` box, and handle the `WM_GETDLGCODE` message: ``` procedure TfrmEnableVIPMode.AccountNumberWindowProc(var Message: TMessage); begin case Message.Msg of WM_GETDLGCODE: Message.Result := DLGC_WANTTAB; else FOldAccountNumberWindowProc(Message); end; end; ``` And i now receive Tab KeyPress events (as i hoped), but now pressing the Left or Right cursor keys causes focus to shift to the previous, or next, control in the tab order. What is the correct way to recieve Tab Key Press events? Bonus Reading i tried doing what the MSDN documentation says: wParam The virtual key, pressed by the user, that prompted Windows to issue this notification. The handler must selectively handle these keys. For instance, the handler might accept and process VK_RETURN but delega…

Accepted Answer

You need to call the previous WndProc first so the Message.Result gets a default value for the key codes that `TEdit` natively wants, then append your `DLGC_WANTTAB` flag to that result, eg:

```
procedure TfrmEnableVIPMode.AccountNumberWindowProc(var Message: TMessage);
begin
  FOldAccountNumberWindowProc(Message);
  if Message.Msg = WM_GETDLGCODE then
    Message.Result := Message.Result or DLGC_WANTTAB;
end;
```

How to receive TAB key press in edit box?

Solution

Problem

Related problems