各位先進： 小弟寫了一個資料庫的程式，用了十幾個TDBEdit的元件。小弟現在想要使用者在每一個TDBEdit上輸入二位數字後，能自動將 Focus(焦點)移到下一個TDBEdit，請問要如何自動將焦點自動跳到下一個TDBEdit元件呢？謝謝。

引言: 各位先進： 小弟寫了一個資料庫的程式，用了十幾個TDBEdit的元件。小弟現在想要使用者在每一個TDBEdit上輸入二位數字後，能自動將 Focus(焦點)移到下一個TDBEdit，請問要如何自動將焦點自動跳到下一個TDBEdit元件呢？謝謝。

在OnChange事件，判斷長度是否為2，之後再用 SelectNext((Sender as TWinControl), True, True); 來移至下一個元件 GPS（全球衛星定位系統） http://www.allgps.com

謝謝 Clarinet 兄的回應，小弟使用SelectNext方法在執行的時候會有"Can't focus a disabled or invisible window" 的錯誤訊息。但小弟並沒有 disabled or invisible 任何元件，不知是否有其他需要注意的地方？謝謝。

iecs 你好:    忘了在哪篇文章看過, 運用 "WM_NEXTDLGCTL" Windows Message, Focus 到下一個 Tab Order 的 TWinControl. 參考看看:

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;    procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ActiveControl is TDBEdit)and
     (Length(TDBEdit(ActiveControl).Text)=1) then
    Perform(WM_NEXTDLGCTL, 0, 0);
end;