Home/ Questions/Q 619365
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-13T18:38:50+00:00

In my application I use tabs, my own component, like Google chrome sort of.

  • 0

In my application I use tabs, my own component, like Google chrome sort of. Each tab reference an explorer component so it is basicly a tabbed browser/explorer. My problem is that I want to use CTRL+ TAB and CTRL+SHIFT +TAB to navigate tabs. Setting forms.KeyPreview will not help since the tab key is special key. How can I, in an easy way, add support for my navigation wish. I can modify component if needed. My component is based on TCustomControl if that helps.

Kind Regards
Roy M Klever

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    Tab, like the arrow keys, enter and escape are a special keys used in dialog navigation. When a control would like to receive those keys it has to indicate so by responding to WM_GETDLGCODE. Like this code below. Then you will receive a KeyDown event when Tab is pressed.

    procedure WMGetDlgCode(var Msg: TWMGetDlgCode); message WM_GETDLGCODE;

procedure TYourControl.WMGetDlgCode(var Msg: TWMGetDlgCode);
begin
 inherited;
 Msg.Result := Msg.Result or DLGC_WANTTAB;
end;

    Also see here and here.

    PS: And make sure your control has focus or you will receive nothing at all (if CanFocus then SetFocus; in MouseDown).

    • 0