【结贴】能不能控制表格的某一部分不让其可见？

jakie

能不能控制表格的某一部分不让其可见？

shangxy

框中的是单独的一个完整子区域么？

jakie

最初由 shangxy 发布
[B]框中的是单独的一个完整子区域么？ [/B]

不是

如果是子区域就可以控制了吗？

shangxy

function TMYSHEETDOC.GetWordArea: TSheetArea;
begin
  Result := Self.Areas.FindArea(Types.Rect(0, 5, 24, 7));
end;

procedure TMYSHEETDOC.InitArea;
begin
  GetWordArea.Visible := not GetInfo.DataSetsdsProcessList.IsEmpty;
end;

然后在需要的地方调用InitArea就可以了。

jakie

最初由 shangxy 发布
[B]function TMYSHEETDOC.GetWordArea: TSheetArea;
begin
  Result := Self.Areas.FindArea(Types.Rect(0, 5, 24, 7));
end;

procedure TMYSHEETDOC.InitArea;
begin
..

以下省略...... [/B]

unit FWQQBGT;

interface

uses
  Business.System, Business.Model;

type
  TFWQQBGT = class(TSheetDoc)
  procedure InitArea;
  function GetWordArea: TFWQQBGT;
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation

function TFWQQBGT.GetWordArea: TFWQQBGT;
begin
  Result := TFWQQBGT(Self.Areas.FindArea(Types.Rect(0, 5, 24, 7)));
end;

procedure TFWQQBGT.InitArea;
begin
  GetWordArea.Visible := not GetInfo.DataSetsdsProcessList.IsEmpty;

end;

end.

编译报错

[Undeclared identifier "Visible"

貌似GetWordArea的返回值没有visible这个属性

shangxy

TSheetArea
这个类下面有吧，你别转换。

jakie

最初由 shangxy 发布
[B]TSheetArea
这个类下面有吧，你别转换。 [/B]

不转换报错，说不能隐式的类型转换

shangxy

你看我4楼的函数，返回类型是：TSheetArea，这个是区域，你为啥要强制转换成文档呢？

jakie

最初由 shangxy 发布
[B]你看我4楼的函数，返回类型是：TSheetArea，这个是区域，你为啥要强制转换成文档呢？ [/B]

因为直接用TsheetArea报错，我就改了下，囧

错误信息：
[警告] 循环引用: "Biz:\FWT\INFO\FWXX.INFO"-->"Biz:\FWT\INFO\FWXX.INFO"
[错误]Biz:\FWT\INFO\FWXX.INFO.DIR\FWQQBG1.SheetDoc.PAS(10, 25): Undeclared identifier "TSheetArea"

shangxy

TSheetArea在帮助搜一下，看看是那个单元空间下的类，然后use中加入空间名