/-------------------------------------------------------------------------------- procedure TFrmRegisteNewSicker.FormKeyPress(Sender: TObject; var Key: Char); begin case Ord(Key) of VK_RETURN : begin //回车键 if not (ActiveControl is TMemo) then begin Key := #0; //去除beep音 Perform(WM_NEXTDLGCTL, 0, 0); end; end; end; end;
----------------------------------------------
-
你可以在edit控件的onkeydown事件中用 if key=#13 then begin {转到下一个控件才} end;
----------------------------------------------
--------------------------- ||||知已知彼,百战不殆!||||| --------------------------- 努力学习,天天向上! -----------冰人吻语 IP:xxx.xxx.xxx.xxx