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

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

ListView [D7, WinXP]

noname:) ©   (2004-11-25 13:46:00) 

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

---

noname:)   (2004-11-25 15:09:00) [1]

Ещё вопрос возник. А если у меня 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()???

---

begin...end   (2004-11-25 15:09:00) [2]

> [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.

---

noname:)   (2004-11-25 15:06:00) [3]

Ещё вопрос возник. А если у меня 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()???

---

noname:)   (2004-11-25 14:27:00) [4]

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

---

Ken   (2004-11-25 14:12:00) [5]

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

---

REA   (2004-11-25 14:11:00) [6]

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

---

Ken   (2004-11-25 14:11:00) [7]

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

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

---

begin...end   (2004-11-25 14:10:00) [8]

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

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

---

noname:)   (2004-11-25 14:07:00) [9]

Ну и? Мне надо, например, ро нажатии кнопки добавлять в 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 13:48:00) [10]

TListView.Items.Insert()

---

Наверх