有3個edit元件edit1,edit2,edit3,它們的tab order是1，2，3,請問怎樣 做到當用戶在某個edit按下"enter"key的時候，按下一個tab order次序的edit 得到focus? 例如：當用戶在edit1填寫完資料后，按下"enter"key，這時候edit2得到focus，當用戶在edit2填寫完資料后，按下"enter"key，這時候edit3得到focus...

Hi donlly,    請參考    http://delphi.ktop.com.tw/topic.php?topic_id=42400 http://delphi.ktop.com.tw/topic.php?topic_id=48675 http://delphi.ktop.com.tw/topic.php?topic_id=57783 http://delphi.ktop.com.tw/topic.php?topic_id=58334 1.set form.KeyPreview to True 2.Form.OnKeyPress Event

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then Perform(WM_NEXTDLGCTL,0,0);
end;

發表人 -

------
Fishman

謝謝，請問一下Perform(WM_NEXTDLGCTL, 0, 0);是什么意思？

Hi donlly,    Perform : Responds as if the control received a specified Windows message.     Delphi syntax: function Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;    Call Perform to bypass the Windows message queue and send a message directly to the control? window procedure.    Perform fills a message record (of type TMessage) with the message ID passed in the Msg parameter, the message parameters passed in WParam and LParam, and a result field of zero. Perform then passes the message record to the WindowProc method for processing.    Come from D7 Help ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

引言: 有3個edit元件edit1,edit2,edit3,它們的tab order是1，2，3,請問怎樣 做到當用戶在某個edit按下"enter"key的時候，按下一個tab order次序的edit 得到focus? 例如：當用戶在edit1填寫完資料后，按下"enter"key，這時候edit2得到focus，當用戶在edit2填寫完資料后，按下"enter"key，這時候edit3得到focus...

下載 dosmove 吧! 站上討論不下百封了!

if Key = #13 then begin Perform(WM_NEXTDLGCTL,0,0); if ActiveControl Is TButton then Caption := '2'; while ActiveControl is TButton do begin Perform(WM_NEXTDLGCTL,0,0); end; end;

明白！謝謝各位！