Получить путь к выделенному файлу в TShellListViewDelphi , Компоненты и Классы , TListViewПолучить путь к выделенному файлу в TShellListView
Оформил: DeeCo // These two solutions don't work: // Diese zwei Losungen funktionieren nicht wie erwartet: { 1. } Label1.Caption := TShellFolder(ShellListView1.RootFolder).PathName; { 2. } var p: TPoint; item: TListItem; begin GetCursorPos(p); p := ShellListView1.ScreenToClient(p); item := ShellListView1.GetItemAt(p.X, p.Y); if item <> nil then Caption := item.Caption end; // But this works: // Aber so geht's: Label1.Caption := ShellListView1.Folders[ShellListView1.ItemIndex].PathName {**************************************************************} { To retrieve full paths to each file selected files: } var path: string; begin for i:=0 to ShellListView1.SelCount-1 do begin path := ShellListView1.Folders[ShellListView1.GetNextItem(ShellListView1.Selected, sdAll,[isSelected]).Index+i-1].PathName; // ... end; end Статья Получить путь к выделенному файлу в TShellListView раздела Компоненты и Классы TListView может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |