Главная страница
    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.012 c
4-1121332955
Denis
2005-07-14 13:22
2005.09.04
Можно ли узнать координаты иконки в трее?


1-1124124080
webpauk
2005-08-15 20:41
2005.09.04
Проверка наличия в строке


14-1123734954
Fin
2005-08-11 08:35
2005.09.04
Ура. Отпуск.


6-1116595933
Павел1
2005-05-20 17:32
2005.09.04
Как получить строку c подключившимся IP?


3-1122357721
evvcom
2005-07-26 10:02
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский