TKOLListView

← →
help (2003-04-26 06:59) [0]

Люди дайте пожалуйста рабочий пример есть объект List: TKOLListView у него три колонки. Вопрос очень простой: как соэдать ячеку например в 1 столбце во 2-ой строке и т.д.

← →
BaRToV (2003-04-26 10:39) [1]

var
x: Integer;
begin
ListView1.LVColAdd("Col 1", taLeft, 50);
ListView1.LVColAdd("Col 2", taLeft, 50);
ListView1.LVColAdd("Col 3", taLeft, 50);
for x := 0 to 9 do
begin
// Добавляем в 1 столбец
ListView1.LVItemAdd("c1 - " + Int2Str(x));

// Добавляем во 2 и 3 столбец
ListView1.LVItems[x, 1] := "c2 - " + Int2Str(x);
( x) [1] var
x: Integer;
begin
ListView1.LVColAdd("Col 1", taLeft, 50);
ListView1.LVColAdd("Col 2", taLeft, 50);
ListView1.LVColAdd("Col 3", taLeft, 50);
for x := 0 to 9 do
begin
// Добавляем в 1 столбец
ListView1.LVItemAdd("c1 - " + Int2Str(x));

// Добавляем во 2 и 3 столбец
ListView1.LVItems[x, 1] := "c2 - " + Int2Str(x);
ListView1.LVItems[x, 2] := "c3 - " + Int2Str(x);
end;
end;

Ну и в таком духе дальше, посмотри еще LVColInsert в HTML-Help.

Можно так:

// Создание строк ListView1.LVItemAdd("1 строка"); ListView1.LVItemAdd("2 строка"); // Создание столбцов ListView1.LVColAdd("1 столбец",taLeft,100); // Присвоить текст ячейке ListView1.LVItems[0,1]:="ячеку например в 1 столбце во 2-ой строке ";

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