Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.12;
Скачать: 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 вся ветка

Текущий архив: 2004.12.12;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.023 c
14-1101284601
fag2000
2004-11-24 11:23
2004.12.12
Линейное программирование - библиотека с открытыми кодами


4-1099204232
X-shadow
2004-10-31 09:30
2004.12.12
Как установить на фаил специфическую иконку?


1-1101468469
sten
2004-11-26 14:27
2004.12.12
вставка картинок в текст


1-1101731361
race1
2004-11-29 15:29
2004.12.12
tobject


4-1098948731
Lexx3D
2004-10-28 11:32
2004.12.12
CD, DVD приводы...