皆さま、あけましておめでとうございます。
Delphi10.3.2で
[設定]ViewStyle:Report,List
[1]ShellTreeviewとShellListrViewを使用して、ShellListViewの動作は、しています。
[2]やりたいこと:ShellListViewをクリック時に、「Label等」に文字を表示したいのですが、
Item:=ShellListView.Selected // Item:=TListItem
Label.text:=Item.captionでは、Text:''nullがでる、Subitemsの取得は、可能です。
宜しくご指導願います。
ShellListView は、使ったことがないので、正しいかわかりませんが、
if ShellListView1.ItemIndex >= 0 then
Label1.Caption := ShellListView1.Folders[ShellListView1.ItemIndex].PathName;
とかは、いかがですか?
↑はフルパスになってしまうので、ファイル名だけなら、こちらで・・
if ShellListView1.ItemIndex >= 0 then
Label1.Caption := ExtractFileName(ShellListView1.Folders[ShellListView1.ItemIndex].PathName);
新年早々にご指導有難う御座います。本年も宜しくお願いいたします。
Label1.Caption := ExtractFileName(ShellListView1.Folders[ShellListView1.ItemIndex].PathName); で取得できましたが、
スマートフォンの場合、Caption(Filename)は、取得できますが、固定ドライブでは、Fullpathも取得可能でした。
やはり従来のItem.captionでは、取得困難でしょうか。アイコンの設定をOffにできないでしょうか?