如何在 TEdit 中按enter 鍵可以跳至下一 TEdit ? 如何在 TEdit 中按enter 鍵觸發 Button1 的 onclick 事件 ? 本人的思路是利用 ord() 檢測 TEdit.Text 最尾的一個 char 是否 enter 鍵, 但利用 copy() 出來的不是 char , 請問要如何將 string 轉為 char ? 還有的是有沒有人知道 enter 鍵的 ASCII 碼是什麼 ?? 各位大大能否給我的思路出點意見呢 ? 或提示更好的思路 ?

hi, 這個問題已經有很多篇相關的文章, 列出幾篇給你參考: http://delphi.ktop.com.tw/topic.php?topic_id=23025 http://delphi.ktop.com.tw/topic.php?topic_id=23123 http://delphi.ktop.com.tw/topic.php?topic_id=27456 http://delphi.ktop.com.tw/topic.php?topic_id=23522

謝謝提供的連結 ~ 問題已經解決了. 現在還想問一問以下一個情況 : 有 TEdit , TButton 各一, 當在TEdit 中按 Enter 鍵會跳至 TButton(這一已經解決了), 但當在 TButton 上如果不輸入 Enter 鍵則跳回 TEdit 要如何處理 ? 本人作了以下編碼 : if key<>#13 then begin Edit1.SetFocus; Edit1.Text:=key; end; 表面上是沒有問題的, 但當再輸入這二次 Key 時會發現在 Button 上鍵入的字符會放到最後, 而我輸入的則在前面, 請問要如何解決呢 ? 我試過加入 key:=#3 (#3好像是 End 鍵) , 但也不能解決到呢~ 不知是否有令到 TEdit 跳到最後位置的方法 ? 發表人 - vernon 於 2003/07/17 12:29:20

要將 edit 的游標移到最後要使用 SelStart.    

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SetFocus;
  Edit1.SelStart := Length(Edit1.Text);
end;

即可!