VPF::ListView и Файловый менеджер.. - Форум программистов

ibragimov

Дата 12.3.2011, 21:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 9.3.2011

Репутация: нет
Всего: нет

Пишу файловый менеджер, на основе - ListView.

user posted image

Список из деректории вывести получилось, при помощи функции сортировки.
Так вот, теперь мне непонятны следующие вещи : как переходить по дерикториям и папкам с помощью 'стрелок на клавиатуре' и 'Enter'?
И как при открытии программы, сразу выделялась первая строка в ListView, пробывал так: ListView1.Items.Selected:=true; , но не выходит.

smile

CrazyPiggy

Дата 13.3.2011, 01:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 4.6.2008

Репутация: нет
Всего: нет

Посмотри в примерах Delphi. Там вроде есть чтото подобное

northener

Дата 13.3.2011, 03:12 (ссылка)

(голосов:3)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(ibragimov @ 12.3.2011, 21:52

)

пробывал так: ListView1.Items.Selected:=true; , но не выходит.

А с чего бы должно выходить?
Чукча не читатель? Хелп читать ниже достоинства?

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

ibragimov

Дата 13.3.2011, 10:57 (ссылка)

(голосов:6)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 9.3.2011

Репутация: нет
Всего: нет

Модератор: Сообщение скрыто.

alexnef

Дата 13.3.2011, 16:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 14.4.2010

Репутация: нет
Всего: нет

1.Кажется ListView1.Items.item[1].Selected:=true;
2.Пиши обработчик события listview1.onmousedown, там проверяй параметр key (или button). Коды клавиш ищи в хелпе/интернете начинаются кажется на vk_ типа vk_down vk_up. Enter кажется vk_return.

Keeper89

Дата 13.3.2011, 17:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Ну так что мешает сделать рефреш по получившемуся пути, соединив текущий путь + выделенный в ListView? Клоуны указывающие на хелп?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

vavilov8

Дата 28.3.2011, 08:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 28.3.2011

Репутация: нет
Всего: нет

ibragimov попробуй так

Код


//Это директория?
 if (ListView1.Selected.SubItems[5] = 'dir') then
  begin
//Если да то перечитать файлы из неё.   
   AddFile(DirectoryEdit.Text+'*.*',faAnyFile)
  end
 else
//Если нет, то это файл и я его запускаю.
  ShellExecute(Application.MainForm.Handle, nil,
      PChar(DirectoryEdit.Text+ListView1.Selected.Caption), '',
      PChar(DirectoryEdit.Text), SW_SHOW);

Как-то так вроде вот ссылка посмотри отсюда

Это сообщение отредактировал(а) vavilov8 - 28.3.2011, 08:42

Присоединённый файл ( Кол-во скачиваний: 3 )

ListView2.rar 8,87 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »