请教各位大虾,怎样在Dbgrid编辑状态下实现按回车后光标自动跳到下一字段网格,也就是TAB键功能
解决方案 »
- 谁能帮帮我??很急,帮我把代码改出来,谢谢!
- 初学,请问怎样在TreeView中显示数据库的数据
- 一个更新数据库内容的问题!
- 如何写程序实现打开远程共享文件夹:开始->运行->\\ip\文件夹名……
- 关于日期的运算和ADOQUERY
- 怎样判断鼠标不在窗体上?
- 急救啊,大家帮我看看,下面到底出错在哪里,小弟初学不久
- 谁能介绍一下Delphi7的Delphi for .NET Preview如何用阿???
- dbgrid可否增加一列,内容只是checkbox选择框,可以让用户通过它进行多向选择?
- 为什么我在用ADO连接SQL SERVER时,只能使用WINDOWS NT集成安全设置,而不能使用指定的名称和密码?
- 如何注册delphi 7?
- 关于函数的问题?谢谢帮我解决!
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;
Shift: TShiftState);
begin
if Key=VK_Return then
Key:=VK_TAB;
end;