Главная страница
    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.008 c
1-30340
nejest
2003-03-31 15:50
2003.04.10
Перемещнеие каталога с подкаталогами и файлами


3-30220
OlegM
2003-03-24 09:18
2003.04.10
Помогите с запросом на MySQL сервер


1-30375
Chlavik
2003-03-29 15:20
2003.04.10
Текст консольного приложения


3-30257
Tomkat_s
2003-03-21 11:58
2003.04.10
Базы BTR


8-30480
Карлсон
2003-01-07 13:14
2003.04.10
преобразование в ASCII





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский