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

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

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

Сообщение manas_anarov » 20.12.2013 18:14:16

Вот код
Код: Выделить всё
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
новенький
 
Сообщения: 26
Зарегистрирован: 13.12.2013 20:56:59

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

Сообщение Лекс Айрин » 20.12.2013 18:24:56

А для чего папку выбираем-с?
Аватара пользователя
Лекс Айрин
долгожитель
 
Сообщения: 5723
Зарегистрирован: 19.02.2013 16:54:51
Откуда: Волгоград

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

Сообщение manas_anarov » 20.12.2013 18:30:35

Лекс Айрин нада выбрать диск любой, например нада указать путь флешки, но как сами видите у меня пример не заработал, что делать ?
manas_anarov
новенький
 
Сообщения: 26
Зарегистрирован: 13.12.2013 20:56:59

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

Сообщение Deimos » 20.12.2013 18:50:48

Код: Выделить всё
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;


Вариант из первго поста тоже вполне-работает...
Deimos
постоялец
 
Сообщения: 174
Зарегистрирован: 17.01.2010 00:31:30

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

Сообщение Vadim » 20.12.2013 19:00:05

manas_anarov
Свой код выбросьте. Вкладка "Dialogs", компонент "TSelectDirectory".
Vadim
долгожитель
 
Сообщения: 4112
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск

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

Сообщение manas_anarov » 01.01.2014 15:39:03

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

Добавлено спустя 1 минуту 25 секунд:
"TSelectDirectory" удобная вешь, но и без него можна обойтись, пути буду набирать вручную ничего страшного.
manas_anarov
новенький
 
Сообщения: 26
Зарегистрирован: 13.12.2013 20:56:59

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

Сообщение Vadim » 02.01.2014 08:00:49

manas_anarov
Ну, приятель, до чего же Вы упорны в нежелании использовать простые вещи вместо сложных - это просто что-то... :)
В приложении - работающий пример.
У вас нет необходимых прав для просмотра вложений в этом сообщении.
Vadim
долгожитель
 
Сообщения: 4112
Зарегистрирован: 05.10.2006 08:52:59
Откуда: Красноярск

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

Сообщение manas_anarov » 08.01.2014 16:32:27

Vadim Спасибо, пример заработал, тему можна закрывать.
manas_anarov
новенький
 
Сообщения: 26
Зарегистрирован: 13.12.2013 20:56:59


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 228

Рейтинг@Mail.ru