Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > ListView и Файловый менеджер..

Автор: ibragimov 12.3.2011, 21:52

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

user posted image

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

smile

Автор: CrazyPiggy 13.3.2011, 01:22

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

Автор: northener 13.3.2011, 03:12

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

)

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

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

Автор: ibragimov 13.3.2011, 10:57

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

Автор: alexnef 13.3.2011, 16:44

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

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

Автор: vavilov8 28.3.2011, 08:40

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

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