Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
ВнизListView Найти похожие ветки
← →
Ivolg (2004-09-09 16:56) [0]ПРИВЕТ Всем!! Помигите PLIZZZ! Как мне мона добавить Колонку D ListView!! Спасибо заране!!!!!!
← →
@Lex © (2004-09-09 17:03) [1]This example requires only a blank form. All other objects: TListView, TListColumns, TListItems, are created dynamically. You must add comctrls to the uses clause of the unit file.
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", "Rocky")
);
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;
← →
Palladin © (2004-09-09 17:04) [2]Columns.Add
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.029 c