Страница 1 из 1
А есть такое в делфи?....
Добавлено: 18 дек 2006, 17:49
Svoja4ok
народ, мне нужен компонент который показывает дерево каталогов и запоминает путь выделенной папки. типа как opendialog тока про каталоги.
выглядит так
ЗЫ Использую студию 2006
Re: А есть такое в делфи?....
Добавлено: 19 дек 2006, 04:47
SergeyS
Вот пример:
Код: Выделить всё
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
var
path: String;
begin
SelectDirectory('Выберите директорию', 'C:\Program files\', path,
[sdNewUI], Self);
end;
end.
Re: А есть такое в делфи?....
Добавлено: 19 дек 2006, 09:41
LAngel
Можно и самому нарисовать используя класс TShellTreeView