SelectDirectory

[b0bERk0]

Здраствуйте!
Нужно чтоб по кнопке возводился SelectDirectory.
Немогу найти ошибку...

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure Button1Click(Sender: TObject);
    function SelectDirectory ( const Caption : string; const StartDir : WideString; out ChosenDir : string ) : Boolean;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
TForm1.SelectDirectory;
end;

function TForm1.SelectDirectory(const Caption: string;
  const StartDir: WideString; out ChosenDir: string): Boolean;
var
  chosenDirectory : string;
begin
  // Просим пользователя выбрать требуемый каталог, стартовый каталог C:
  if SelectDirectory('Выберите каталог', 'C:\', chosenDirectory)
  then ShowMessage('Выбранный каталог = '+chosenDirectory)
  else ShowMessage('Выбор каталога прервался');
end;

end. 


Заранее спасибо!

[BioHEX]

Так у тебя функция пустая!
Не заморачивайся ставь компонент PDirSelected.rar

[mihali4]

Нужно чтоб по кнопке возводился SelectDirectory

Объясните эту фразу. Что значит "возводился" ?
Если сможете на нормальном русском объяснить, то решим...

[b0bERk0]

сори перплутал...
Чтоб по кнопке вызывалась процедура

[FaTaL]

Зачем Вам вообще писать лишнюю функцию? Нельзя сразу по кнопке написать:

var
  dir : string;
begin
  if SelectDirectory ('Выберите папку', '', dir, [sdNewFolder, sdNewUI]) then
// тут Ваш остальной код

[b0bERk0]

Все роботает, всем спасибо.