Сред стандартните диалози Delphi 6 (раздел диалози) избор на папка диалог като тъжно липсва. Но няма значение, сега се коригира този пропуск, като напишете съответния компонент.

За да създадете нов компонент в Delphi IDE, изберете File> New> Други, а след това в прозореца, който се появява, щракнете върху New Component. Показва се диалогов прозорец, в който:

• Ancensor тип (предшественик клас на новия компонент) - въведете TComponent;
• Име на класа (на името на новия клас) - TBrowseFolderDlg;
• Palette Page (име раздела: сложи нашия диалог със стандартна Делфийския) - диалогови прозорци.

Иначе не променя и кликнете OK. Нашата megadialog ще извикате функция в декларираните компоненти публични декларации:

Къде заглавие - диалогов заглавие (сложи всяка от вашия вкус), з - дръжката на прозореца на собственика (т.е. програма). Команда, използвани в кода, която се съдържа в ShlObj.pas, така че не забравяйте да посочите устройството към секцията за употреба.

Готов ли си? Запазване и избор Компонент> Инсталиране Component, инсталирате нашия диалог, както е посочено в раздел Unit Име на файла път към BrowseFolderDlg.pas файл.

Свържете се с диалог от програмата, можете да (разбира се, след като хвърли под формата TBrowseFolderDlg):

Разбира се, това е само "скелета" на висок клас компоненти и пространства за модернизация са безкрайни.

Статии, свързани с теми

За да поставите препратка към тази статия на друг сайт, използвайте следната HTML-кода: