VPF::папки в ComboBox - Форум программистов

CompWorm

Дата 14.8.2006, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Допеределыватель

Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: 2
Всего: 31

подскажите плиз какой-нибудь простой способ вывода названий папок, лежащих в конкретной папке, в виде списка ComboBox
smile

--------------------

>>> Indie Games Club! <<<

Foley

Дата 14.8.2006, 22:06 (ссылка)

(нет голосов)

Загрузка ...

Фсемба Яцца

Профиль
Группа: Участник
Сообщений: 235
Регистрация: 31.1.2006
Где: Россия, Арх.обл

Репутация: 2
Всего: 7

Для этого есть стандартные компаненты, которые находятся на палитре компанент (по моему вкладка Вин32 или что-то подобное) поищи.

CompWorm

Дата 14.8.2006, 22:20 (ссылка)

(нет голосов)

Загрузка ...

Допеределыватель

Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: 2
Всего: 31

несомненно есть.
и все же...

нашел примерчик http://forum.vingrad.ru/index.php?showtopic=81378
но не получается переделать под ComboBox. smile

--------------------

>>> Indie Games Club! <<<

Alexeis

Дата 15.8.2006, 00:21 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Этот компанент называется TShellComboBox и находится на палитре Samples

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Teran

Дата 15.8.2006, 08:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

Репутация: нет
Всего: 3

Код


function GetDirs(const ADir: string): TStrings;
var
  lSR: TSearchRec;
  lDir, lTmp: string;
begin
  Result := TStringList.Create;
  if DirectoryExists(ADir) then
  begin
    lDir := IncludeTrailingPathDelimiter(ADir) + '*.*';
    if (FindFirst(lDir, faAnyFile, lSR) = 0) then
    begin
      try
        repeat
          if (lSR.Name <> '.') and (lSR.Name <> '..') then
          begin
            lTmp := ADir + lSR.Name;
            if DirectoryExists(lTmp) then
              Result.Add(lTmp);
          end;
        until FindNext(lSR) <> 0;
      finally
        FindClose(lSR);
      end;
    end;
  end;
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
ComboBox.Items:=GetDirs('c:\');
end;

а лучше использовать кже готовые TShellComboBox,TShellListView,TShellTreeView

--------------------

Ни цего не понимаю

Romikgy

Дата 15.8.2006, 09:22 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Код


var lb: TListBox;

begin
lb:=TListBox.Create;
SendMessage(lb.Handle,LB_DIR,DDL_DIRECTORY    ,    
 Longint(Pchar(str+'*.*')));
ComboBox1.Items.Assign(lb.Items);
lb.Free;
end;

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

CompWorm

Дата 16.8.2006, 04:40 (ссылка)

(нет голосов)

Загрузка ...

Допеределыватель

Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: 2
Всего: 31

спасипа!

--------------------

>>> Indie Games Club! <<<

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »