ITabObjects.SelectedObject

Синтаксис

SelectedObject(Index: Integer): ITabObject;

Параметры

Index - индекс выделенного объекта.

Описание

Свойство SelectedObject возвращает выделенный объект, индекс которого передается посредством параметра Index.

Пример

Sub Macro;

Var

Rep: IPrxReport;

Objs: ITabObjects;

Obj: ITabObject;

i: Integer;

Begin

Rep := PrxReport.ActiveReport;

Objs := Rep.ActiveSheet.Table.Objects;

Objs.CenterSelectedAtView;

If Objs.Count <> 0 Then

For i := 0 To Objs.Count - 1 Do

Objs.Item(i).Select_;

End For;

Obj := Objs.SelectedObject(Objs.SelectedCount - 1);

Rep.ActiveSheet.Table.Cell(10, 0).Value := Obj.ClassId;

End If;

End Sub Macro;

Данный пример является макросом для регламентного отчета. После выполнения макроса, будут выделены все объекты активного листа регламентного отчета, затем в ячейке "А10" будет содержаться идентификатор класса последнего выделенного объекта.

См. также:

ITabObjects