【结帖】如何获取窗体里的控件的属性[请求]**

bqh

我现在需要在一个单元里调用另一个窗体里的datagrid, 需要获取那个datagrid的属性，如 rowselectcount和数据等
请问大虾怎么实现
谢谢！

lixy

http://bbs.justep.com/forum.php? ... 7%D3%C3%B6%D4%CF%F3

bqh

我不是这个意思
比如说
UNIT A
TA = CLASS(TForm)  里有这样的控件
datagrid ：Tdatagrid
我需要在另外一个窗体里 通过函数来调用它

bqh

具体的
我在  TPIC = class(TForm) 下写了一个这样的函数      
procedure  TPIC.PlotLine(SeriesX: TLineSeries; SeriesY: TPointSeries; Load: string;
  P_Value: string; M: double; N: integer; DataGrid: TDataGrid);
var
  XS, YS, XS_O, YS_O: array of double;
  i, Len : Integer;
begin
  SeriesX.Clear;
  SeriesY.Clear;
  if DataGrid.SelectedCount > 0 then
      begin
      for i := 0 to DataGrid.SelectedCount - 1 do
      begin
        DataGrid.DataSource.DataSet.Bookmark := DataGrid.SelectedRows;
        SetLength(XS, Length(XS) + 1);
        SetLength(YS, Length(YS) + 1);
        Len := Length(XS);
        XS[Len - 1] := DataGrid.DataSource.DataSet.FieldByName(Load).Asinteger;
        YS[Len - 1] := DataGrid.DataSource.DataSet.FieldByName(P_Value).AsFloat/M + N;
      end;
    end;
  TISO(InfoBroker.Info).DrawLine(XS, YS, XS_O, YS_O);
  for i := 0 to Length(XS)-1 do
  begin
    SeriesY.AddXY(XS, YS,'', Series2.SeriesColor);
  end;
    for i := 20 to Length(XS_O)-1 do
  begin
    SeriesX.AddXY(XS_O, YS_O,'', SeriesX.SeriesColor);
  end;
end;

我需要在另外一个窗体下(TForm)调用这个函数，怎么实现？

Akon

程序集内调用可以直接访问

如在信息下的文档中，访问信息中的方法
TDDXX(InfoBroker.Info).OpenAll;

跨程序集调用方法

项目管理中引入
代码中 程序集ID.对象类型名
举例：如功能中调用资源集的函数
ZYJ1.TZYJ1.CallMe;

bqh

问题是我把这段代码写在一个信息的窗体单元下，并且同一个信息下另外一个窗体调用这个函数。
调用非class（TInfo）的函数也可以用InfoBroker.Info？

lixy

信息下加窗体？ 不推荐，楼主自己重构下，按照平台的5层模型来。

bqh

晕，我们现在设计的模型，大多在信息下建了多个窗体。
在X3中，不需要有入口功能的窗体，一般是建在什么地方？

lixy

信息下建窗体，要访问的话。也是一样的。
谁创建的，谁能访问。要看这个窗体的变量声明在哪里。意思就是这个窗体的实例在什么地方。
x3如果是非常独立的窗体，一般会建在资源集。
如果只有这个功能使用，一般建在这个功能下。

bqh

谢谢