在dbgrid中我可以实现
if key=#13 then
begin
if (ActiveControl is TdxDBGrid) Then //是在 TdxDbgrid 控件内
begin
With TdxDBGrid(ActiveControl) Do
if Selectedindex<(FieldCount-1) then
Selectedindex:=Selectedindex+1 // 移动到下一字段
else
Selectedindex:=0;end;但我不知在dxdbgrid中如何实现,而且是在某一列往下一行的该列跳,同一行的小格中不跳
if key=#13 then
begin
if (ActiveControl is TdxDBGrid) Then //是在 TdxDbgrid 控件内
begin
With TdxDBGrid(ActiveControl) Do
if Selectedindex<(FieldCount-1) then
Selectedindex:=Selectedindex+1 // 移动到下一字段
else
Selectedindex:=0;end;但我不知在dxdbgrid中如何实现,而且是在某一列往下一行的该列跳,同一行的小格中不跳
解决方案 »
- 问一个小白问题,原来是BDE下TQuery.Create(nil),怎样改成ADO下的ADOQuery?
- 如何判断一个窗体是由哪另一个窗体creat的?
- 是不是发邮件的程序,必须得连一个SMTP服务器?
- 如何在clientdataset里查找满足条件的纪录
- <<DELPHI 5开发人员指南>>的源代码哪里有
- 请问:DBGrid---DataLink之间是如何通信,保持数据刷新的?
- 李维分布式多层应用系统篇第二章的简单问题:什么是中介软件?
- 崔永元:实话实说 - 拉登篇
- 我怎关闭这个隐藏的程序?
- ?数据连接组件的内存使用!
- 请问如何用delphi程序实现在局域网中控制某些机器上网,多谢。
- Delphi中调用web服务的错误,数据类型不正确!
begin
grid.row := grid.row + 1;
grid.col := grid.col + 1;
end;
if key = 13 then
begin
if (ActiveControl is TdxDBGrid) then
begin
//
if (TdxDBGrid(Activecontrol).FocusedColumn < TdxDBGrid(Activecontrol).ColumnCount -1) then
begin
TdxDBGrid(Activecontrol).FocusedColumn := TdxDBGrid(Activecontrol).FocusedColumn+1; end
//
else if
not(TdxDBGrid(Activecontrol).DataSource.DataSet.Eof) then
begin
TdxDBGrid(Activecontrol).FocusedColumn := 0;
TdxDBGrid(Activecontrol).DataSource.DataSet.Next; end
else if TdxDBGrid(Activecontrol).DataSource.DataSet.eof then
begin
TdxDBGrid(Activecontrol).FocusedColumn := 0;
TdxDBGrid(Activecontrol).DataSource.DataSet.Append;
end;
end;
end;