Detect tab-key pressing

Posted in Manipulators

Use CM_DIALOGKEY message. Create special procedure to hook this message and make something, when result is Tab key.

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure CMDialogKey(var Msg: TCMDialogKey);
      message CM_DIALOGKEY;
  public
    { Public declarations }
  end;

...

procedure TForm1.CMDialogKey(var msg: TCMDialogKey);
begin
  if Msg.CharCode=VK_TAB then
    Caption:='Tab Key was pressed';
end;