有关dbgrid光标的移动(50分)

银

银河

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #1

请问dbgrid连接一个数据表后，进行数据的输入，
怎样编程，才能用Enter可以使得光标在同一行内，往后一个网格移动。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #2

procedure TForm1.DBGrid1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if key=13 then
key:=9;
end;

 

银

银河

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #3

这样要回车两下才能跳到下一个网格，
能不能只用回车一下就可以跳到下一个网格的编程？

 

Q

QuickSilver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #4

procedure TForm1.DBGrid1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
with TDbgrid(ActiveControl) do
begin
if Selectedindex<(FieldCount-1) then
Selectedindex:=Selectedindex+1
else
begin
dbgrid1.DataSource.DataSet.Next;
Selectedindex:=0;
end
end;
end;

 

梦

梦之旅

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #5

你可以下载一个dosmove 控件包

 

O

oldppp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #6

用Ehlib中的dbgrideh,里边有个属性一设就行了

 

8

816

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-27

• #7

QuickSilver, 的方法是正确的。
这个问题以前已经有人解决了的。用的就是上面的代码。
你要注意去查下TDbgrid的Selectedindex属性。帮助里说的很明白。

 

银

银河

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #8

对了，这个程序可以。
多谢！