Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.16;
Скачать: CL | DM;

Вниз

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

 
Alibaba ©   (2002-12-04 18:47) [0]

Всем привет!
Кто нибудь пользовался этим компонентом?

Елементарная задача: Хочу просматривать текстовые файлы.

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).

Мне надо на необходимое собитие повесить мой код.

ВОПРОС : НА КАКОЕ?


 
Андрей Прокофьев ©   (2002-12-04 19:07) [1]

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;


 
Alibaba ©   (2002-12-05 18:24) [2]

Спасибо.



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

Текущий архив: 2002.12.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
6-51849
VitaWED
2002-10-17 22:08
2002.12.16
Соединение по модему.


14-51942
vaneks
2002-11-25 13:40
2002.12.16
Посоветуйте кто знает плз!


1-51691
aterm
2002-12-04 13:11
2002.12.16
Какой код у клавиши delete


3-51601
relaxer
2002-11-26 08:14
2002.12.16
Хелп! Запароленный Paradox ...


3-51633
Oxy
2002-11-28 10:14
2002.12.16
Почему такие прблемы?