TShellListView

1 svar · 252 visningar · startad av msossna 19 mars 2003

msossnaMedlem sedan feb. 2002476 inlägg

Trådstart19 mars 2003 13:44#1

Jag har en TShellListView och när man markerar en fil vil jag skriva ut sökvägen i en memoruta (Memo1.Add()).

Hur gör man?

TigermannenMedlem sedan juli 200124 inlägg

26 mars 2003 08:40#2

procedure TForm1.ShellListView1Click(Sender: TObject);
var
  SelectedFile: TShellFolder;
begin
  SelectedFile := ShellListView1.SelectedFolder();
  if SelectedFile <> nil then
      memo1.lines.Add( SelectedFile.PathName() );
end;

mvh Tony