Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.26;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
1-1094634938
rand0m
2004-09-08 13:15
2004.09.26
Run-time библиотеки Delphi


1-1094565678
Новенький
2004-09-07 18:01
2004.09.26
Как получить первую букву слова введенного в Edit?


4-1092386897
midavik
2004-08-13 12:48
2004.09.26
Включение сетевой карты


8-1088924844
Tahion2
2004-07-04 11:07
2004.09.26
Функция Colorize для иконок.


1-1094814005
HeKTO
2004-09-10 15:00
2004.09.26
HotKey