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;

Columns.Add

ListView Найти похожие ветки