Главная страница
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.025 c
1-1101848922
Kolan
2004-12-01 00:08
2004.12.12
Перенос Series


1-1101816916
jiran
2004-11-30 15:15
2004.12.12
Есть описание фукции на С++, как правильно описать на Delphi ?


3-1100510736
Брат
2004-11-15 12:25
2004.12.12
Создание кросс-отчета


1-1101733181
denis24
2004-11-29 15:59
2004.12.12
wordApplication


14-1101237650
GanibalLector
2004-11-23 22:20
2004.12.12
Невозможно найти удаленный сервер