Ĺadny brzuch
Mam taki problem. Na formie znajduje się ShellTreeView i Sysedit. Jak zrobic aby po kliknieciu na plik inny niz folder zawartosc tegoż pliku otwierała się w synEdit?
procedure TForm1.FormCreate(Sender: TObject); begin ShellTreeView1.ObjectTypes := [otFolders, otNonFolders]; end; procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode); var s : string; begin if fileexists(ShellTreeView1.Path) then s := ShellTreeView1.Path; end;
wartrość zmiennej s to będzie nazwa pliku wraz ze ścieżką.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
procedure TForm1.FormCreate(Sender: TObject); begin ShellTreeView1.ObjectTypes := [otFolders, otNonFolders]; end; procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode); var s : string; begin if fileexists(ShellTreeView1.Path) then s := ShellTreeView1.Path; end;
wartrość zmiennej s to będzie nazwa pliku wraz ze ścieżką.