Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];

Вниз

Вопрос о TListView   Найти похожие ветки 

 
KpeHgeJIb   (2003-03-29 15:02) [0]

Народ, происходит странная штука...

Есть ListView на форме. И есть процедура описывающая событие OnChange. При добавлении елементов событие обрабатывается нормально, а вот при удалении нет.

Вот код:
{ Имеем кнопки: Button1-Добавляет Button2-Удаляет выделеный елемент. А также Label1- который отображает кол-во элементов в ListView1}

procedure TForm1.Button1Click(Sender: TObject);
begin
with ListView1.Items.Add do
begin
caption:="Item "+IntToStr(ListView1.Items.Count);
subitems.Add("SubItem of "+caption);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListView1.Items.Delete(ListView1.ItemIndex);
end;

procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
begin
Label1.Caption:=IntToStr(ListView1.Items.Count);
end;


Так вот прикол в том что при удалении элемента Label1 не меняется.


 
ЮЮ   (2003-03-31 06:00) [1]

Прикол то в чем? Отчего это ты ожмдаешь ListView1Change при удалении элемента списка? :-)



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

Форум: "Основная";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.007 c
7-30612
Stan
2003-02-13 00:56
2003.04.10
Проблема со скрытием программы от ctrl+alt+del


14-30603
themaster
2003-03-14 18:17
2003.04.10
Актуальность изучения 1С.


14-30585
bpv
2003-03-25 10:32
2003.04.10
update pack 1 для delphi 7


3-30318
tERRORist
2003-03-20 18:43
2003.04.10
Можно ли выбрать двунапр. набор данных используя dbExpress


3-30215
Vovik
2003-03-19 09:51
2003.04.10
Типы полей в Dbase





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский