Как перехватить клавишу табуляции (Tab) в TEdit?

Warning: array_key_exists() [function.array-key-exists]: The second argument should be either an array or an object in /home/delphi7/public_html/479714b078a8d205ac2eb3cada3caabc/sape.php on line 395

Как перехватить клавишу табуляции (Tab) в TEdit?

Это можно давольно легко сделать переопределив на форме процедуру CMDialogKey. Чтобы посмотреть как это работает, поместите на форму Edit и введите следующий код:

procedure CMDialogKey(Var Msg: TWMKey);
message CM_DIALOGKEY;
...
procedure TForma.CMDialogKey(Var Msg: TWMKEY);
begin
  if (ActiveControl is TEdit) and
      (Msg.Charcode = VK_TAB) then
  begin
   ShowMessage('Нажата клавиша TAB?');
  end;
  inherited;
end;