【结贴】图片单元格

shangxy

使用如下代码可以 得到当前焦点所在单元格的字段名称，
if Business.Forms.Forms.Screen.ActiveControl.Parent is TBaseEdit then
  begin
    lFieldName := TBaseEdit(Business.Forms.Forms.Screen.ActiveControl.Parent).DataField;
    lFieldName := SysUtils.UpperCase(lFieldName);
  end;

但是以上代码也只是针对字段单元格起作用，如果是图片单元格该如何判断？

wuchao

用代码查看了下图片单元格所在的父类是一个TJSEdit类型，但是这个类型并没有被注册。好像没有办法使用这个类型。