用edit来实现数据输入,当enter键按下时,怎么样才能实现数据输入焦点的转移??? procedure TFormSale.FormKeyPress(Sender: TObject; var Key: Char);begin if Key=#13 then begin Perform(WM_NEXTDLGCTL, 0, 0); Key:=#0; end;end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TFormSale.FormKeyPress(Sender: TObject; var Key: Char);begin if Key=#13 then begin Key = #0; SelectNext(ActiveControl,True,True); end;end; 设置FormSale的keyPreview属性为True,把edit1,edit2...的TabOrder依次设为0,1 在edit的keypress中:if key=#13 then edit2.setfocus; 到该网站的程序员大本营中的delphi资源大全里有比较详细! 怎样才能让dbgrideh或CXgrid插入新记录时,当前光标只能在新插入的行内移动? 我写的ActiveX的Dll,调用时报错:“对象不支持此属性或方法”,向大虾们请教。 [求助]如何取得ADO的出错信息? Delphi 7在windows 2003 server 下连接Sybase 数据库的问题。 Midas中 (server)远程函数 为什么不能返回值?? clientdataset的CommandText的问题 问一个简单的问题 关于rtl60.bpl访问冲突 怎样连接两个工程? 怎样在控件里添加Font属性?? 立体声. 中科院招人
begin
if Key=#13 then
begin
Key = #0;
SelectNext(ActiveControl,True,True);
end;
end; 设置FormSale的keyPreview属性为True,把edit1,edit2...的TabOrder依次设为0,1
if key=#13 then
edit2.setfocus;