ListView

← →
noname:) © (2004-11-25 13:46) [0]

Добрый день! Как сделать так чтобы строки в ListView добавлялись н в конец а в начало?
Т.е. не:
строка1
строка2
строка3
а:
строка3
строка2
строка1
Спасибо!

← →
begin...end © (2004-11-25 13:48) [1]

TListView.Items.Insert()

← →
noname:) © (2004-11-25 14:07) [2]

Ну и? Мне надо, например, ро нажатии кнопки добавлять в ListView1 строку с временем.

var
li:TListItem;
begin
li := ListView1.Items.Add;
li.Caption:= TimeToStr(Time);

Получается
13:06
13:10
13:16
13:20
а надо
13:20
13:16
13:10
13:06

← →
begin...end © (2004-11-25 14:10) [3]

> [2] noname:) © (25.11.04 14:07)

ListView1.Items.Insert(0).Caption := TimeToStr(Time)

← →
REA (2004-11-25 14:11) [4]

В предложении TListView.Items.Insert() ключевое слово Insert

← →
Ken (2004-11-25 14:11) [5]

тебе уже написали:
Используй TListView.Items.Insert()

TListView.Items.Insert(TListView.Items.Count, "newitem");

← →
Ken (2004-11-25 14:12) [6]

сори просто TListView.Items.Insert(0, "newitem");

← →
noname:) © (2004-11-25 14:27) [7]

Спасибо за помощь!!! :)

Ещё вопрос возник. А если у меня 3 колонки, например, Время, Статус и Кому. Тогда как сделать?
Делал так:

MessageW := WideString(AMessage);
ToComputerW := WideString(AToComputer);
FromComp := WideString(AFromComputer);
Result := NetMessageBufferSend(0, PWideChar(ToComputerW),PWideChar(FromComp),
PWideChar(MessageW), Length(MessageW) * SizeOf(WideChar));
if result = noerror then begin
Form4.StatusBar1.Panels.Items[0].Text := "Message send to " + ToComputerW + " succesfull!";
li := Form4.ListView1.Items.Add;
li.Caption:= TimeToStr(Time);
li.ImageIndex := 0;
li.SubItems.Add("OK");
li.SubItems.Add(ToComputerW);
end
else begin Form4.StatusBar1.Panels.Items[0].Text := "Error sending message to " + ToComputerW + "!";
li := Form4.ListView1.Items.Add;
li.Caption:= TimeToStr(Time);
li.ImageIndex := 1;
li.SubItems.Add("Error");
li.SubItems.Add(ToComputerW);
end;
finally
FreeLibrary(NetApi32);
end;

А как это сделать с Insert()???

> [8] noname:) © (25.11.04 15:06)

var
LI: TListItem;

begin
LI := ListView1.Items.Insert(0);
with LI do
begin
Caption:= TimeToStr(Time);
ImageIndex := 0;
SubItems.Add("OK");
SubItems.Add(ToComputerW)
end
end.

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