不好意思問這種問題~~~ 其它鍵讀的到 為什麼就是 TAB 不行呢?? procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_TAB then begin Button1Click(Sender); end; end;

參考: How to catch a 'Tab Character' key stroke inside  your TEdit control. - by Borland Developer Support Staff     Abstract:      Question: How can I catch the tab character inside of my  Edit controls?      Answer: This can easily be done by overriding the forms  CMDialogKey procedure. To see how this works drop a Edit  on the form and enter in the following code:     

procedure TMyForm.CMDialogKey(Var Msg: TWMKEY);
begin
  if (ActiveControl = Edit1) and (Msg.Charcode = VK_TAB) then
  begin
   ShowMessage('Somebody Tabbed?');
  end;
  inherited;
end;

Also, make sure to add the following line to your forms definition:

    procedure CMDialogKey(Var Msg: TWMKey); message CM_DIALOGKEY;

-- Everything I say is a lie.