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

  • 主题发起人 主题发起人 银河
  • 开始时间 开始时间

银河

Unregistered / Unconfirmed
GUEST, unregistred user!
请问dbgrid连接一个数据表后,进行数据的输入,
怎样编程,才能用Enter可以使得光标在同一行内,往后一个网格移动。
 
procedure TForm1.DBGrid1KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if key=13 then
key:=9;
end;
 
这样要回车两下才能跳到下一个网格,
能不能只用回车一下就可以跳到下一个网格的编程?
 
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;
 
你可以下载一个dosmove 控件包
 
用Ehlib中的dbgrideh,里边有个属性一设就行了
 
QuickSilver, 的方法是正确的。
这个问题以前已经有人解决了的。用的就是上面的代码。
你要注意去查下TDbgrid的Selectedindex属性。帮助里说的很明白。
 
对了,这个程序可以。
多谢!
 
后退
顶部