要如何讓文字方塊在輸入滿了之後，自動換到下一個文字方塊

發文回覆瀏覽次數：712

推到 Plurk!

推到 Facebook!

尚未結案

regfeisty
一般會員

發表：1
回覆：0
積分：0
註冊：2004-02-12

發送簡訊給我

發表時間：2004-02-12 23:49:58

IP:211.76.xxx.xxx 未訂閱

請問一下：要如何讓文字方塊在輸入滿了之後，自動換到下一個文字方塊等待輸入，而不用按Tab鍵切換。例如有兩個文字方塊edit1、edit2 最大長度都是4 在edit1方塊輸入滿4個字元後他會自已跳到edit2等待輸入而不用使用者再自已按tab鍵切換謝謝

terrychen
尊榮會員

發表：90
回覆：794
積分：501
註冊：2003-05-01

發送簡訊給我

發表時間：2004-02-12 23:55:28

IP:211.76.xxx.xxx 未訂閱

您好：

 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if length(edit1.Text) = edit1.Maxlength then
    Edit2.SetFocus;
end;

~~應無所住而生其心~~

系統時間：2024-06-27 0:53:41

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！