ПИШЕМ КОМПОНЕНТ — ОКНО ВЫБОРА ПАПКИ

ПИШЕМ КОМПОНЕНТ — ОКНО ВЫБОРА ПАПКИ

Среди стандартных диалогов Delphi 6 (вкладка Dialogs) диалог выбора папки, как это ни прискорбно, отсутствует. Но ничего :). Сейчас мы исправим данное упущение, написав соответствующий компонент.

Чтобы создать новый компонент, в Delphi IDE выберите пункт File>New>Other и затем в появившемся окне нажмите New Component. Появится диалоговое окно, в котором:

 

Ancensor type (класс-предок нового компонента) — введите TComponent;

Class Name (имя нового класса) — TBrowseFolderDlg;

Palette Page (имя вкладки: поместим наш диалог вместе со стандартными дельфийскими) — Dialogs.

 

Остальное оставьте без изменений и нажмите OK. Наш мегадиалог будет вызываться функцией, продекларированной в Public Declarations компонента:

 

function BrowseFolder(title: PChar; h: hwnd): String;

 

где title — заголовок диалога (поставьте любой на ваш вкус :)), h — хэндл окна-владельца (то есть вашей программы). А команды, использованные в коде, содержатся в ShlObj.pas, так что не забудьте указать этот модуль в разделе Uses.

 

unit BrowseFolderDlg;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Controls, ShlObj;

 

type

  TBrowseFolderDlg = class(TComponent)

  private

    { Private declarations }

  protected

    { Protected declarations }

  public

    { Public declarations }

    function BrowseFolder(title: PChar; h: hwnd): String;

  published

    { Published declarations }

  end;

 

procedure Register;

 

implementation

 

procedure Register;

begin

  RegisterComponents('Dialogs', [TBrowseFolderDlg]);

end;

 

function TBrowseFolderDlg.BrowseFolder(title: PChar; h: hwnd): String;

var

  lpItemID: PItemIDList;

  path: array[0..Max_path] of char; //выбранная папка

  BrowseInfo: TBrowseInfo; //настройки диалога

begin

  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);

  SHGetSpecialFolderLocation(h,csidl_desktop,BrowseInfo.pidlRoot);

  //устанавливаем свойства диалогового окна

  with BrowseInfo do begin

    hwndOwner := h; //окно-владелец

    lpszTitle := title; //заголовок диалога

    //не показываем некоторые системные папки: «Корзина», «Панель управления» и т.д

    ulFlags := BIF_RETURNONLYFSDIRS+BIF_EDITBOX+BIF_STATUSTEXT;

  end;

  //выводим диалог

  lpItemID := SHBrowseForFolder(BrowseInfo);

  //папка, указанная юзером, существует?

  if lpItemId <> nil then begin

    SHGetPathFromIDList(lpItemID, Path);

    result:=path;

    GlobalFreePtr(lpItemID); //освобождаем ресурсы

  end;

end;

 

end.

 

Готово? Сохранитесь и, выбрав Component>Install Component, проинсталлируйте наш диалог, указав в разделе Unit File Name путь к файлу BrowseFolderDlg.pas.

Осуществить вызов диалога из программы можно так (разумеется, предварительно бросив TBrowseFolderDlg на форму):

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  Form1.Caption:= 'Выбрана следующая папка: '+

  BrowseFolderDlg1.BrowseFolder('Укажите каталог:',Application.Handle);

end;

 

Конечно, это только «скелет» полноценного компонента, и просторы для модернизации безграничны.

 

 

Автор: Трофим Роцкий