Динамически созданный ListView

← →
Dinara (2002-08-08 21:30) [0]

Что нужно сделать с сабжем перед тем, как добавлять итемы? Просто так, сразу после создания не получается - лезут ошибки.

← →
Jeer (2002-08-08 21:52) [1]

Пример небез"известный

procedure TForm1.FormCreate(Sender: TObject);

const
Names: array[0..5, 0..1] of string = (
("Rubble", "Barney"),
("Michael", "Johnson"),
("Bunny", "Bugs"),
("Silver", "HiHo"),
("Simpson", "Bart"),
("Squirrel", "Rockey")
);

var
I: Integer;
NewColumn: TListColumn;
ListItem: TListItem;
ListView: TListView;
begin
ListView := TListView.Create(Self);
with ListView do
begin
Parent := Self;

Align := alClient;
ViewStyle := vsReport;

NewColumn := Columns.Add;
NewColumn.Caption := "Last";
NewColumn := Columns.Add;
NewColumn.Caption := "First";

for I := Low(Names) to High(Names) do
begin
ListItem := Items.Add;
ListItem.Caption := Names[I][0];
ListItem.SubItems.Add(Names[I][1]);
end;
end;
end;

← →
Dinara (2002-08-08 21:59) [2]

Спасибо, разобралась уже :)

Проблема была очень тонкая, а внешне-то все вроде правильно было написано.

← →
Юрий Зотов (2002-08-08 23:06) [3]

Наверное, перенесли этот код в OnShow?

Для работы с ListView нужно реальное окно, а ему требуется родительское. В OnCreate окна формы еще нет, оно появится после отработки CreateWnd.

← →
Dinara (2002-08-08 23:58) [4]

Нет, дело было не в этом.

Я вынесла функцию создания экземпляра ListView в отдельный модуль. Его занесла в uses главной формы. Этой функции в качестве параметра передавался ListView, который нужно создать (сам этот ListView объявлялся во втором другом модуле).

Плюс к тому же, ListView входит в состав другого класса, своевременная инициализация объекта которого была под сомнением :))

И еще... думаешь одно, пишешь другое.. :))

Но все решилось с миром :)

Динамически созданный ListView Найти похожие ветки