ShellListView

Mener du at du vil åbne en given fil  med den associeret application
når du dobbelt-klikker.

Stoney

Jeg er igang med en HTML Editor. I den har jeg en Memo. Når jeg dobbeltklikker på ShellListView skal jeg have teksten fra den vil jeg dobbeltklikker på loadet ind i Memoén

memo1.Lines.LoadFromFile(shelllistview1.SelectedFolder.PathName);

Stoney

Så åbner den jo også selve filen ... Altså fx hvis det var en *.html fil så åbner den jo også i IE.

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShellListView1.AutoNavigate := false;
end;

procedure TForm1.ShellListView1DblClick(Sender: TObject);
begin
  if ShellListView1.SelectedFolder <> nil then
  begin
    with ShellListView1,Folders[Selected.Index] do
    begin
      if IsFolder then
          Root := SelectedFolder.PathName
      else
        Memo1.Lines.LoadFromFile(SelectedFolder.PathName);
    end;
  end;
end;

som altid BORRISHOLT og hans heste styrer !

Jens B

snart opstå problemet om at gå en tak tilbage :

Tilføj en knap og så gør sådan her :

type
  TForm1 = class(TForm)
    ShellListView1: TShellListView;
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ShellListView1DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    LastFolder : String;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  ShellListView1.AutoNavigate := false;
end;

procedure TForm1.ShellListView1DblClick(Sender: TObject);
begin
  if ShellListView1.SelectedFolder <> nil then
  begin
    with ShellListView1,Folders[Selected.Index] do
    begin
      if IsFolder then
      begin
        LastFolder := SelectedFolder.PathName;
        Root := LastFolder;
      end
      else
        Memo1.Lines.LoadFromFile(SelectedFolder.PathName);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Index : Integer;
begin
  Index := LastDelimiter('\', LastFolder);
  LastFolder := Copy(LastFolder, 1, Index -1);
  ShellListView1.Root := LastFolder;
end;

end.

Jens B

kan ikke teste det før iaften men det ser da lovende ud :D

nåååe .....

Jens B

doh! Havde helt glemt det :D
Takker :D

Det var meget nemt .. Jeg kiggede i sourcen ...