請問一下關於有多個EDIT元件按下ENTER就跳到下一個EDIT元件 |
|
缺席
|
|
worldone
一般會員   發表：3 回覆：5 積分：1 註冊：2003-11-21 發送簡訊給我 |
請問一下關於有多個EDIT元件按下ENTER就跳到下一個EDIT元件 小弟有個問題想請問各位前輩
譬如我有5個EDIT元件
該如何在EDIT1輸入完畢後按下ENTER就直接跳往EDIT2元件
依此類推...到了EDIT5元件時按下ENTER又回到EDIT1元件呢? 小弟有在下列測試一下可是連動都不會動...
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
perform(WM_NEXTDLGCTL,0,0);
if key=#13 then key := #0;
end; 但是若是寫在EDIT元件中...又只會在該元件中出現該效果...
也就是說我要分別在5個EDIT元件中寫入下列程式才行..這會不會太麻煩呢
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
perform(WM_NEXTDLGCTL,0,0);
if key=#13 then key := #0;
end; 請問各位前輩這該怎麼解決呢? 謝謝...
|
|
worldone
一般會員 發表：3 回覆：5 積分：1 註冊：2003-11-21 發送簡訊給我 |
發表時間：2004-01-04 12:35:53
IP:218.170.xxx.xxx 未訂閱
系統時間：2024-05-15 16:25:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |