Главная страница
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.057 c
1-1094655106
roma
2004-09-08 18:51
2004.09.26
WebBrowser


1-1094734605
Ivolg
2004-09-09 16:56
2004.09.26
ListView


4-1092213118
TPotokShell
2004-08-11 12:31
2004.09.26
Как отличить поток ?


14-1094746699
wl
2004-09-09 20:18
2004.09.26
хотелось бы узнать, в какое время (по мск) на этом форуме наиболь


3-1093866563
Sheriff
2004-08-30 15:49
2004.09.26
Firebird, execute procedure