【结】datagrid的问题**

xhsoft

我想实现在上一行的最后一个字段打回车，自动新建一行，焦点自动回到第一个字段上
现在的情况：
   代码如下 if (Sender as TDataGrid).FocusedColumn = 4 then //比如是datagrid的第五列敲回车时焦点就切换到Edit1上
  begin
    if key = 13 then
    begin
      (Sender as TDataGrid).OptionsBehavior := (Sender as TDataGrid).OptionsBehavior -
                                        [TGroupListOptionBehavior.edgoEnterShowEditor];
      //Edit1.SetFocus;
       datasetbroker5.DataSet.Append;
       datasetbroker5.DataSet.post;
       datagrid3.SetFocus;
      begin
       //DataGrid1.DataSource.DataSet.First;
       DataGrid3.FocusedColumn := -1;
       DataGrid3.OptionsBehavior := (DataGrid1).OptionsBehavior +
                                      [TGroupListOptionBehavior.edgoEnterShowEditor] +
                                      [TGroupListOptionBehavior.edgoImmediateEditor];
    DataGrid3.ShowEditor;
    datasetbroker5.DataSet.Append;
  end;
    end;

结果是这样的，如l图
但是当出现了滚动条就会正常了

atiger

没有太了解楼主的描述，楼主设置DataGrid3.OptionsBehavior  属性的目的是啥呢？是参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=24325 这个吗？
不过在DataGrid 某个列回车换行或者新增一条记录，bbs有许多例子，可以用“DataGrid*回车”搜索，例如
http://bbs.justep.com/forum.php?mod=viewthread&tid=1744  10楼
http://bbs.justep.com/forum.php?mod=viewthread&tid=27570  22楼

代码写完后，出现问题，需要自己设置断点调试代码，看看是否逻辑出问题了

xhsoft

结了，谢谢

atiger

ok