Серед стандартних діалогів Delphi 6 (вкладка Dialogs) діалог вибору папки, як це не сумно, відсутня. Але нічого, зараз ми виправимо дане упущення, написавши відповідний компонент.
Щоб створити новий компонент, в Delphi IDE виберіть пункт File> New> Other і потім у вікні натисніть New Component. З'явиться діалогове вікно, в якому:
- Ancensor type (клас-предок нового компонента) - введіть TComponent;
- Class Name (ім'я нового класу) - TBrowseFolderDlg;
- Palette Page (ім'я вкладки: помістимо наш діалог разом із стандартними дельфійськими) - Dialogs.
Решту залишіть без змін і натисніть OK. Наш мегадіалог буде викликатися функцією, задекларованої в Public Declarations компонента:
Де title - заголовок діалогу (поставте будь на ваш смак), h - хендл вікна-власника (тобто вашої програми). А команди, використані в коді, містяться в ShlObj.pas, так що не забудьте вказати цей модуль в розділі uses.
Готово? Збережетеся і, вибравши Component> Install Component, проінсталюйте наш діалог, вказавши в розділі Unit File Name шлях до файлу BrowseFolderDlg.pas.
Здійснити виклик діалогу з програми можна так (зрозуміло, попередньо кинувши TBrowseFolderDlg на форму):
Звичайно, це тільки "скелет" повноцінного компонента, і простори для модернізації безмежні.
Статті, схожі по тематиці
Для вставки посилання на цю статтю на іншому сайті використовуйте наступний HTML-код: