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

Вниз

ShellListView   Найти похожие ветки 

 
Wolferio ©   (2005-11-22 17:23) [0]

Добрый вечер!

Помогите пожалуйста разобраться с ошибкой.
У меня в ShelListView на действие OnClick происходит команда, вот одна из строк:

Lable1.caption:=ShellListView.SelectedFolder.DisplayName;

В ShellListView на ShellStyle стоит значение VsReports.

При запускe программы и при нажати на пустое поле В ShellListView получаеться ошибка.
ВОПРОС: Каким способом можна обойти ошибку? Можна ли ее предварительно перехватить.

Заранее Благодарен за помощь! Спасибо!


 
TUser ©   (2005-11-22 21:44) [1]

Вероятно, проверять - что такое SelectedFolder.


 
Wolferio ©   (2005-11-23 10:52) [2]

.


 
TUser ©   (2005-11-23 11:18) [3]

var F: TShellFolder;
begin
F:=ShellListView1.SelectedFolder;
if assigned (F) then
Label1.caption:=F.DisplayName
else Label1.Caption:="nothiung selected"
end;


 
Wolferio ©   (2005-11-23 11:50) [4]


> TUser


Большое Спасибо!



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

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

Наверх





Память: 0.45 MB
Время: 0.075 c
14-1132659449
Quadro
2005-11-22 14:37
2005.12.11
Требуется довести до ума небольшую программу на Дельфи 7


1-1132129440
pav74
2005-11-16 11:24
2005.12.11
Мастера! кто-то знает алгоритм автоматизации контроля температуры


2-1133001837
IAMDANIL
2005-11-26 13:43
2005.12.11
Почему не работает проверялка?


14-1132252990
DK2DK2DK2
2005-11-17 21:43
2005.12.11
поднять свой сервер


4-1128601644
AngelFire
2005-10-06 16:27
2005.12.11
Перехват ввода





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