SheetDoc的光标定位问题**

ht88th

我想知道在SheetDoc上如何控制光标定位问题?(也就是说我通过按回车键光标跳到不同的单元格,类似于DataEdit的TabOrder的功能)
这个问题能否通过设置或者通过什么代码实现?
谢谢

atiger

我没有测试过，影响本来就是一个单元格一个单元格跳的，不知道楼主遇到啥问题，如果某个字段不需要跳进去，可以设置字段的编辑属性的是否可用属性就可以了

ht88th

系统支持的是按回车光标是横向跳的,我现在想纵向,希望通过代码控制我先纵向输入下机门幅的两个值,然后回车光标跳到下机经密的第一个单元格上,总之能够做到在输入完一个单元的值后按回车能够使光标能跳转到理想的位置

ht88th

这个问题有什么好的建议吗?

alang

表格文档无法做这么严格的控制

ht88th

希望大家想想办法，在SHEETDOC中，用代码控制 单元格 焦点定位 问题，哪怕用些 歪门邪道的方法，否则我们就无法淘汰老系统了。

做信息化，最讨厌的就是用户对键盘操作上的要求，用户都希望键盘敲的最少。有些用户很苛刻：少一个是一个，按 按键次数 来衡量一个系统的好坏。

所以，希望平台能解决这个问题！！！急，急，急！！！

提供一点可行性代码：以下代码在STUDIO中运行是可以的，但在正式运行起来后就不起作用，WHY?
procedure TCONTACTFORM.BizFormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  lFieldName: string;
begin
  Inherited;
  if Key = Borland.Delphi.Windows.VK_RETURN then // .VK_F2
  begin
    if ActiveControl.Parent is Business.Forms.TBaseEdit then
    begin
      lFieldName := TBaseEdit(ActiveControl.Parent).DataField;
      lFieldName := SysUtils.UpperCase(lFieldName);
    end;
    if lFieldName = 'CONTACTPERSON' then     //联系人回车 焦点自动跳到 联系电话
      RefDoc.RefInfo.sdsDataSet.FieldByName('CONTACTPHONE').FocusControl
    else if lFieldName = 'CONTACTPHONE' then //联系电话回车 焦点自动跳到 联系部门
      RefDoc.RefInfo.sdsDataSet.FieldByName('CONTACTDEPT').FocusControl;
    Tprogram.ShowMsg(lFieldName);
    //其它控件...
    Key := 0;  //可解决两次触发的问题
  end;

end;

atiger

楼主，这个问题需要讨论一下方案，是否可以实现，
不过现在大家都放假了，只能等节后了（5.8号正式上班了）。

huangyue

光标定位的问题我也很想了解.关注!