Выбор папки, пример не работает

[manas_anarov]

Вот код

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
const
  SELDIRHELP = 1000;
var
  sDir: String;
begin
  sDir:= 'C:\windows';
  if SelectDirectory(sDir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption:= sDir;
end;

end.


Нажимаю на кнопочку , потом реально появляется окно только пустое, этот пример из делфи, по идее в окне должно появиться дерево папок и файлов да?

[Лекс Айрин]

А для чего папку выбираем-с?

[manas_anarov]

Лекс Айрин нада выбрать диск любой, например нада указать путь флешки, но как сами видите у меня пример не заработал, что делать ?

[Deimos]

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var od:TSelectDirectoryDialog;
begin
  od:=TSelectDirectoryDialog.Create(self);
  if ((od.Execute) and (od.FileName<>''))
  then label1.Caption:=od.FileName;
  od.Free;
end;


Вариант из первго поста тоже вполне-работает...

[Vadim]

manas_anarov
Свой код выбросьте. Вкладка "Dialogs", компонент "TSelectDirectory".

[manas_anarov]

Я сделал как вы просили, по любому такая же ситуация , нажимаю кнопку ,появляется "TSelectDirectory" тока он пустой, почему так у одних пример работает а у меня нет, еше я создал тему насчет русских путей, там тоже у людей вродебы работает мой пример, а у меня нет

Добавлено спустя 1 минуту 25 секунд:
"TSelectDirectory" удобная вешь, но и без него можна обойтись, пути буду набирать вручную ничего страшного.

[Vadim]

manas_anarov
Ну, приятель, до чего же Вы упорны в нежелании использовать простые вещи вместо сложных - это просто что-то...
В приложении - работающий пример.

[manas_anarov]

Vadim Спасибо, пример заработал, тему можна закрывать.