Скачать: CL | DM;

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]

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

---

← →
noname:) ©   (2004-11-25 15:06) [8]

Ещё вопрос возник. А если у меня 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 15:09) [9]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c