判断是否按了TAB键的函数、方法或语句

Question

各位前辈：
        判断是否按了TAB键的函数、方法或语句怎样写？谢谢，万分感激！
                                                               jackyrong

Answer 1

以edit为例
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 9 then
  Self.Caption := Self.Caption + 'd';
end;
一定要写到keyup 事件中

Answer 2

将FORM的KEYPREVIEW设为TRUE
在KEYPRESS或KEYDOWN事件中：CASE　KEY　OF
VK＿TAB：DO　SOMETHING

Answer 3

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = #9 then
  showmessage('123');
end;

Answer 4

同意WWWWA(aaaa) 的方法.将FORM的KEYPREVIEW设为TRUE
在KEYPRESS或KEYDOWN事件中：CASE　KEY　OF
VK＿TAB：DO　SOMETHING