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

Вниз

Двойной клик по item у в компоненте TListView   Найти похожие ветки 

 
Galiaf   (2005-08-10 23:54) [0]

Я должен сделать так что бы при двойном клике по компоненту его картинка присваивалась в image2 а если кликнуль НЕ по item"у, то ничего происходить не должно. Вот я пробовал этот кусок но что-то я не учёл и при клике по пустому пространству ListView"а получается ошибка.

 ii:=listview1.Selected.ImageIndex;
 if listview1.Selected.Index<>-1 then
   begin
     bit := tbitmap.Create;
     imagelist1.GetBitmap(ii,bit);
     image2.Picture.Assign(bit);
     bit.Free;
   end;


Собственно хочется узнать что я нетак сделал. Кстати, сдравствуйте :).


 
Наиль ©   (2005-08-10 23:59) [1]

if listview1.Selected<>nil then Begin
Твой код
End;


 
Наиль ©   (2005-08-11 00:04) [2]

listview1.Selected.Index<>-1 вcегда true


 
Galiaf   (2005-08-11 00:06) [3]

Ща проверю...


 
Galiaf   (2005-08-11 00:08) [4]

:):):):):):):):):):):):):):):):):):):):):):):):):):):):):):):):)


 
Galiaf   (2005-08-11 00:10) [5]

Работает :), нет ошибок :). Если честно, я никогда не догодался бы. Вот что значит опыт или его отсувствие!



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

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

Наверх




Память: 0.45 MB
Время: 0.01 c
14-1123081658
begin...end
2005-08-03 19:07
2005.09.04
"Проверь себя". Тест для начинающих.


14-1123924715
PZ
2005-08-13 13:18
2005.09.04
Что бы это значило ?


6-1116571383
Net2
2005-05-20 10:43
2005.09.04
Включён ли компьютер


1-1123165458
VID
2005-08-04 18:24
2005.09.04
ДЛЯ ПРОФИ. OleContainer и его OleObject. У них недопонимание :)


2-1089278540
Думкин
2004-07-08 13:22
2005.09.04
Для поддержки





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