Закрепить положение объекта на другом объекте.

[Артист]

В общем нужен ListView с чекбоксом, но не у каждой строки.
Нашел решение:

ListItem := Form2.ListView1.Items.Add;
ListItem.Caption := '';                              // Первая колонка под чекбокс
ListItem.SubItems.Add('какая-то строка');            // Вторая колонка

CheckBox := TCheckBox.Create(nil);                   // Создать чекбокс
CheckBox.Parent := Form2.ListView1;                  // Установить родителя и вывести чекбокс
ListItem.Data := CheckBox;                           // Чтобы потом можно было получить значение
Rect := ListItem.DisplayRect(drBounds);              // Получить высоту(Top, Bottom) стороки(ячейки)
Rect.Left := Rect.Left + 4;                          // Позиция слева. Сдвинуть вправо на 2
Rect.Right := Form2.ListView1.Columns[0].Width - 1;  // Позиция справа
CheckBox.BoundsRect := Rect;                         // Установить по координатам

Но, при появлении прокрутки, при прокручивании ListView, они стоят на одном и том же месте.

Можно как-то заставить их прокручиваться вместе с ListView?

Вот небольшой пример:
ChekBox to ListView.rar

Слева поставил чекбокс, справа прокрутил вниз, но чекбоксы остались на месте:
Безымянный.jpg

[kropotkina-alice]

Посмотрите как это сделано для дбгрида и переделайте свой код по аналогии...

procedure DrawGridCheckBox(Canvas: TCanvas; Rect: TRect; Checked: boolean);
var
  DrawFlags: Integer;
begin
  Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, ' ');
  DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH or DFCS_ADJUSTRECT);
  DrawFlags := DFCS_BUTTONCHECK or DFCS_ADJUSTRECT;
  if Checked then
    DrawFlags := DrawFlags or DFCS_CHECKED;
  DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DrawFlags);
end;

procedure TForm4.sDBGrid1ColEnter(Sender: TObject);
begin
  with TDBGrid(Sender) do
    if SelectedField.FieldName = 'using' then // Модифицируйте под себя
      Options := Options - [dgEditing]
    else
      Options := Options + [dgEditing]
end;

procedure TForm4.sDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Column.FieldName = 'using' then // Модифицируйте под себя
    if Column.Field.AsInteger = 1 then //если стоит галочка
      DrawGridCheckBox((Sender as TDBGrid).Canvas, Rect, true)
    else
      DrawGridCheckBox((Sender as TDBGrid).Canvas, Rect, false)
end;

[Артист]

Т.е. нужно использовать DBGrid, вместо ListView?
Просто я только учусь, могу тупить.
Почитал, пишут, что этот компонент для отображения базы данных, а у меня её нет...

[kropotkina-alice]

Т.е. нужно использовать DBGrid, вместо ListView?

???
"по аналогии" означает, что надо посмотреть как сделано для DBGrid и сделать у себя для ListView подобным способом.

[Sciv]

Не изобретайте велосипед. Вот Delphi XE2:

[Артист]

Сообщение от kropotkina-alice

???
"по аналогии" означает, что надо посмотреть как сделано для DBGrid и сделать у себя для ListView подобным способом.

Так у них разные эвенты...
Ладно, попробую его, если пойму как строку в нём создать...

Sciv, да, но тут чекбоксы у всех строк, а мне нужно разделить группы строк, пустой строкой без чекбокса.

Безымянный.jpg

[Sciv]

А обязательно пустую строку? Можно же группами обойтись:

[Артист]

О, а как так сделать? ))
А, нашел...

[Sciv]

Сообщение от Артист

О, а как так сделать? ))
А, нашел...

Groups. Нужно, наверное, кнопку для добавленния групп ещё сделать, но это уже Ваши заморочки )

[Артист]

Нет, не то я нашёл...