Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];
Вниз
Динамически созданный 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 входит в состав другого класса, своевременная инициализация объекта которого была под сомнением :))
И еще... думаешь одно, пишешь другое.. :))
Но все решилось с миром :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c