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

Вниз

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

← →
IL-2   (2002-08-29 15:08) [0]

На форми у меня ShellListView и в OnClick следущие

var
s:=string;
...
s:=ShellListView.SelectedFolder.PathName;
showmessage(s);
...

Если я не выберу файла а просто кликну по ShellListView тогда выходит ошибка. Как ее исправить?

---

← →
Song   (2002-08-29 15:09) [1]

Проверяйте на nil:
IF Assined(...

---

← →
IL-2   (2002-08-29 15:11) [2]

2song
а по другому можна?

---

← →
McSimm   (2002-08-29 15:18) [3]

Можно по другому. Несколько способов точно можно придумать.
Только непонятно какой нужен.
Чем не устраивает?
if Assigned(ShellListView.SelectedFolder) then
s:=ShellListView.SelectedFolder.PathName
else ...

---

← →
Skier   (2002-08-29 15:20) [4]

или :)


with ShellListView do begin
if Assigned(SelectedFolder) then begin
S := SelectedFolder.PathName;
end; //if
end; //with


---

← →
IL-2   (2002-08-29 15:25) [5]

Всем спасиба

---

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

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

Наверх

Память: 0.45 MB
Время: 0.111 c