全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1261
推到 Plurk!
推到 Facebook!

edit切換問題

答題得分者是:lsh19871112
w734691
一般會員


發表:1
回覆:1
積分:0
註冊:2011-03-14

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-04-07 14:01:50 IP:61.225.xxx.xxx 訂閱
 請問一下各位大大
假設我有設定3個edit
請問要怎麼做才能讓我在其中一個edit輸入完後按Enter就會自動跳下一個呢??
P.D.
版主


發表:603
回覆:4038
積分:3874
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-04-07 16:26:06 IP:118.169.xxx.xxx 未訂閱
請使用 DOSMOVE 元件即可很簡單解決, 搜尋一下本站吧!
lsh19871112
一般會員


發表:2
回覆:8
積分:7
註冊:2010-09-06

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-04-07 16:47:49 IP:119.139.xxx.xxx 訂閱
procedure *.EditAKeyPress(Sender: TObject; var Key: Char);
BEGIN
if KEY=#13 then
BEGIN
EditB.SetFocus;
SendMessage(EditB.Handle,EM_SETSEL,0,-1);
END;
END;
chenyk
高階會員


發表:14
回覆:95
積分:171
註冊:2002-07-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2011-04-07 18:00:00 IP:114.46.xxx.xxx 未訂閱
 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
if Key = VK_RETURN then
postmessage(handle, wm_keydown, VK_TAB, 0);
end;
w734691
一般會員


發表:1
回覆:1
積分:0
註冊:2011-03-14

發送簡訊給我
#5 引用回覆 回覆 發表時間:2011-04-07 19:03:30 IP:61.225.xxx.xxx 訂閱
 謝謝以上幾位大大喔
因為我是新手,所以可能會問一些很基本的問題,見諒
系統時間:2024-04-27 2:56:48
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!