| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TShellListView [D6, Win2k]
Alibaba © (2002-12-04 18:47:00)Всем привет!
Кто нибудь пользовался этим компонентом?
Елементарная задача: Хочу просматривать текстовые файлы.
slvMain: TShellListView;
memScr: TMemo;
На событие slvMain.OnClick
вешаю код:
procedure TfrmMain.slvMainClick(Sender: TObject);
var PathToScr: string;
begin
PathToScr:=slvMain.SelectedFolder.PathName;
memScr.Clear;
memScr.Lines.LoadFromFile(PathToScr);
end;
И теперь, когда я кликаю на необходимом файле - в мемо вижу его содержимое.
Все работает супер.
Теперь идем дальше.
Я хочу не кликать на файлах, а перемещаться по списку файлов вверх, вниз используя стрелочки и тоже видеть в мемо содержимое.
При этом, конечно-же, ничего не происходит.
Потому что события, которые происходят при нажатии стрелочек другие (не OnClick).
Мне надо на необходимое собитие повесить мой код.
ВОПРОС : НА КАКОЕ?
Alibaba (2002-12-05 18:24:00) [1]Спасибо.
Андрей Прокофьев (2002-12-04 19:07:00) [2]procedure TForm1.ShellListView1 Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
begin
if (Change = ctState) and Assigned(Item) then
if Item.Focused then
ShowMessage(ShellListView1.SelectedFolder.PathName);
end;
| |
