回车替Tab下移控件
需要用回车键代替TAB键下移一个控件时,把KeyPress设为True,加入下列代码拦截击键:
Procedure TForm1.FormKeyPress(Sender:Tobject;Var Key:Char);
Begin
if key=#13 then { 判断是按执行键}
if not (ActiveControl is TDbgrid) Then
Begin { 不是在TDbgrid控件内}
key:=#0;
perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
end else
if (ActiveControl is TDbgrid) Then{是在 TDbgrid 控件内}
begin
With TDbgrid(ActiveControl) Do
if Selectedindex<(FieldCount-1) then
Selectedindex:=Selectedindex+1{ 移动到下一字段}
else Selectedindex:=0;
end;
End; 以上是我在网上找到的资料,可是我在DELPHI里一运行老提示
Illegal character in input file:' ' ($A1A1)
这是怎么回事?还有上面提到的KeyPress是不是FORM的属性,怎么在Properties找不到?
需要用回车键代替TAB键下移一个控件时,把KeyPress设为True,加入下列代码拦截击键:
Procedure TForm1.FormKeyPress(Sender:Tobject;Var Key:Char);
Begin
if key=#13 then { 判断是按执行键}
if not (ActiveControl is TDbgrid) Then
Begin { 不是在TDbgrid控件内}
key:=#0;
perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
end else
if (ActiveControl is TDbgrid) Then{是在 TDbgrid 控件内}
begin
With TDbgrid(ActiveControl) Do
if Selectedindex<(FieldCount-1) then
Selectedindex:=Selectedindex+1{ 移动到下一字段}
else Selectedindex:=0;
end;
End; 以上是我在网上找到的资料,可是我在DELPHI里一运行老提示
Illegal character in input file:' ' ($A1A1)
这是怎么回事?还有上面提到的KeyPress是不是FORM的属性,怎么在Properties找不到?
解决方案 »
- delphi程序不用数据库,怎么访存数据?
- 在listview中如何让选中checkbox时候同时该行也处于选中状态?
- 如何在游戏界面中模拟文本编辑(输入)框?
- 编译PASCAL源程序的错误提示
- 如何當移動記錄時,不自動提交數據,但又可以讓 Edit 得到焦點
- 那些不看好DELPHI的人你们听着!
- 请问如何动态创建frame,并把frame放到tabcontrol或pagecontrol中去,当tabindex改变时关闭frame,创建令一个新的
- 上午问了一个关于dxdbgrid的问题,没有人看懂,只好从新再问一边吧
- "record/key deleted"异常是什么原因
- 做安装程序时,是否还要运行build下的compile和run setup 才能的到我要的安装程序?
- 客户端与服务器端的存储过程的参数怎么传递?
- 如何使Delphi中的各种Grid具有滚动跟踪的特性?
至于报错,你把每行代码前面的空格删了试一下,他可能是碰到无效的空格了,代码好像没问题