| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ListView [D7, WinXP]

Ivolg ©   (2004-09-09 16:56:00) 

ПРИВЕТ Всем!! Помигите PLIZZZ! Как мне мона добавить Колонку D ListView!! Спасибо заране!!!!!!

---

Palladin   (2004-09-09 17:04:00) [1]

Columns.Add

---

@Lex   (2004-09-09 17:03:00) [2]

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;

---

Наверх