ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Апгред TcxShellBrowserDialog.
5 сообщений из 5, страница 1 из 1
Апгред TcxShellBrowserDialog.
    #39863670
Страдалецъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Страдалецъ
Участник
Потребовался мне тут компонентик для выбора каталога, решил использовать из девок TcxShellBrowserDialog, а он оказывается не может создавать каталоги. Решил я залезть в техподдержку девок и оказалось, что эта проблема больше 10 лет висит нерешенная :(
Там же нашел идею, на основе которой сварганил следующее:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
type
  TcxShellBrowserDialog = class(cxShellBrowserDialog.TcxShellBrowserDialog)
  private
   cxButton3: TcxButton;
   procedure cxButton3Click(Sender: TObject);
  protected
   function CreateForm: TcxShellBrowserDlg; override;
  end;
...
function TcxShellBrowserDialog.CreateForm: TcxShellBrowserDlg;
begin
 inherited;
 Result := TcxShellBrowserDlg.Create(Application);
 cxButton3 := TcxButton.Create(Result);
 cxButton3.Caption := 'Create';
 cxButton3.Width := Result.cxButton1.Width;
 cxButton3.Height := Result.cxButton1.Height;
 cxButton3.Left := 10;
 cxButton3.Top := Result.ClientHeight - cxButton3.Height - 10;
 cxButton3.Anchors := [akLeft, akBottom];
 cxButton3.Parent := Result;
 cxButton3.OnClick := cxButton3Click;
end;

procedure TcxShellBrowserDialog.cxButton3Click(Sender: TObject);
begin
 ForceDirectories(IncludeTrailingPathDelimiter(Path) + 'New path');
end;


Кнопка создается, нажимается, вот только свойство Path пустое оказалось. И вот собственно вопрос, как же мне достучаться до рабочего свойства Path?
...
Рейтинг: 0 / 0
19.09.2019, 08:15
| Ответить | Цитировать | Написать  
Апгред TcxShellBrowserDialog.
    #39863684
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
TcxShellBrowserDialog = class(cxShellBrowserDialog.TcxShellBrowserDialog)
  private
   Form: TcxShellBrowserDlg;
   cxButton3: TcxButton;
   procedure cxButton3Click(Sender: TObject);
  protected
   function CreateForm: TcxShellBrowserDlg; override;
  end;

function TcxShellBrowserDialog.CreateForm: TcxShellBrowserDlg;
begin
 inherited;
 Result := TcxShellBrowserDlg.Create(Application);
 cxButton3 := TcxButton.Create(Result);
 cxButton3.Caption := 'Create';
 cxButton3.Width := Result.cxButton1.Width;
 cxButton3.Height := Result.cxButton1.Height;
 cxButton3.Left := 10;
 cxButton3.Top := Result.ClientHeight - cxButton3.Height - 10;
 cxButton3.Anchors := [akLeft, akBottom];
 cxButton3.Parent := Result;
 cxButton3.OnClick := cxButton3Click;
 Form := Result;
end;

procedure TcxShellBrowserDialog.cxButton3Click(Sender: TObject);
begin
 ForceDirectories(IncludeTrailingPathDelimiter(Form.cxTeFolder.Text) + 'New path');
end;
...
Рейтинг: 0 / 0
19.09.2019, 08:51
| Ответить | Цитировать | Написать  
Апгред TcxShellBrowserDialog.
    #39863685
ma1tus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ma1tus
Участник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
type
  TcxShellBrowserDialog = class(cxShellBrowserDialog.TcxShellBrowserDialog)
  private
   cxButton3: TcxButton;
   FDlg: TcxShellBrowserDlg;
   procedure cxButton3Click(Sender: TObject);
  protected
   function CreateForm: TcxShellBrowserDlg; override;
  end;
...
function TcxShellBrowserDialog.CreateForm: TcxShellBrowserDlg;
begin
 inherited;
 Result := TcxShellBrowserDlg.Create(Application);
 FDlg := Result;
 ...
end;

procedure TcxShellBrowserDialog.cxButton3Click(Sender: TObject);
begin
 ForceDirectories(IncludeTrailingPathDelimiter(FDlg.DlgFolder) + 'New path');
end;


не ?
...
Рейтинг: 0 / 0
19.09.2019, 08:53
| Ответить | Цитировать | Написать  
Апгред TcxShellBrowserDialog.
    #39863686
ma1tus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ma1tus
Участник
DimaBr,

ой )
...
Рейтинг: 0 / 0
19.09.2019, 08:53
| Ответить | Цитировать | Написать  
Апгред TcxShellBrowserDialog.
    #39864205
Страдалецъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Страдалецъ
Участник
Действительно упс. Вот ведь, а слона то и не увидел :) Спасибки, теперь надо как-то его заставить сфокуситься на этом каталоге. Будем дальше копать.
...
Рейтинг: 0 / 0
19.09.2019, 20:05
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Апгред TcxShellBrowserDialog.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&tid=2039031]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 148ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 257ms
total:  494ms
созд. / загр.: 494ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]