IListView.InsertControl

Синтаксис

InsertControl(Control: IControl; Column: Integer; Row: Integer);

Параметры

Control. Компонент, который необходимо вставить в область элементов компонента.

Column. Индекс столбца, в который необходимо вставить компонент.

Row. Индекс строки, в которую необходимо вставить компонент.

Описание

Метод InsertControl осуществляет вставку компонента в область элементов компонента ListView.

Комментарии

Использование данного метода доступно, если свойству Style установлено значение ListViewStyle.Report.

Примечание. Высота вставляемого компонента будет соответствовать высоте элементов компонента ListView. Ширина вставляемого компонента будет соответствовать ширине соответствующего столбца.

Вставляемый компонент будет являться дочерним относительно самого компонента ListView. Получить доступ к созданным компонентам можно с помощью свойства IComponent.Components. Для удаления созданного компонента используйте метод IFormControl.FreeComponent.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1» и компонента ListView с наименованием «ListView1». В «ListView1» создано два столбца и несколько элементов.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    c: ICheckBox;
    i: Integer;
Begin
    ListView1.Style := ListViewStyle.Report;
    For i := 0 To ListView1.Items.Count - 1 Do
        c := New CheckBox.Create;
        c.Name := c.Name + i.ToString;
        c.Text := "Параметр " + i.ToString;
        ListView1.InsertControl(c, 1, i);
    End For;
    ListView1.ItemHeight := 16;
End Sub Button1OnClick;

При нажатии на кнопку во второй столбец компонента «ListView1» напротив каждого элемента будут вставлены переключатели. Высота элементов будет установлена равной «16».

См. также:

IListView