【结贴】datagrid**

xhsoft

datagrid最后一、列获取焦点时，再打回来，就是edit狨取焦点了，请问如何写，谢谢

zfang

楼主，不太清楚你的意思。请详细描述一下吧。有图的话贴图看看。

xhsoft

如图，现在光标在最后一列，
这时，我再打一下回车的，光标想要移到edith上面

zfang

edith是条形码右边的那个Edit吗？

xhsoft

是的

tanxin

在datagrid的keypress事件下：
if (key=#13) and （datagrid.Columns.Index=？） then  
edit.SetFocus

xhsoft

[警告] 循环引用: "Biz:\SPGL\WJJ1\CGXP\XPXX.INFO"-->"Biz:\SPGL\WJJ1\CGXP\XPXX.Info"
[错误]Biz:\SPGL\WJJ1\CGXP\XPXX.INFO.DIR\YPDJ.FormDoc.pas(84, 32): Not enough actual parameters
[错误]Biz:\SPGL\WJJ1\CGXP\XPXX.INFO.DIR\YPDJ.FormDoc.pas(82, 11): Assertion failure (E:\DEVELOP\BUILD_MOSTNEW\TIB3\SRC_PROTECTED\COMMONLANGUAGE\ILCode\ILCode.pas, line 1209)
[错误]Biz:\SPGL\WJJ1\CGXP\XPXX.INFO.DIR\YPDJ.FormDoc.pas(35, 15): 'TYPDJ.DataGrid1KeyPress' 过程声明了,但没有实现

zfang

楼主，你怎么用的？

切换焦点的代码如下：
procedure TMainForm.DataGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  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;
    end;
  end
  else
  begin
    (Sender as TDataGrid).OptionsBehavior := (Sender as TDataGrid).OptionsBehavior +
                                      [TGroupListOptionBehavior.edgoEnterShowEditor];
  end;
end;

xhsoft

6楼的代码用的，怎么了

zfang

7楼的错误：Not enough actual parameters
没有足够的实参。