Как создать форму из ресурсов |
![]() |
Статьи |
Для уменьшения размера исполняемой программы, форму можно, как вариант, загружать из ресурсов. Для этого нужно создать форму с необходимыми компонентами в любом редакторе ресурсов и сохранить файл ресурсов с расширением *.res в папке с программой. ![]() Создаем прект File -> New -> Application. Удаляем из него форму и сохраняем в папку проекта. Открываем модуль проекта и начнем создавать программу. Первым делом добавим используемые модули:
Определим константы для нашей программы (имена кнопок, полей ввода, заголовок программы и т.д.).
ID элементов управления можно посмотреть в редакторе ресурсов. У меня DIALOG=100 (диалоговое окно), IDC_OK=1003 (кнопка ОК), IDC_CLOSE=1004 (кнопка Выход), IDC_LABEL=1002 (метка) и IDC_EDIT=1001 (поле ввода). Далее определяем переменные экземпляра программы и иконки.
Пишем процедуру обработки окна:
Ну, и инициализация всей программы, собственно с этих строк программа и начнет свою работу.
Первым делом мы подключили файл ресурсов директивой $R, затем назначаем переменной Inst хэндл нашего экземпляра приложения. Далее идет ассемблерная вставка, которой мы создаем диалоговое окно. DIALOG - указатель на нашу форму в ресурсах. DlgProc - цикл обработки сообщения, т.е. процедура обработки диалогового окна. Описание функции DialogBoxParam можно посмотреть в справке Delphi. Здесь можно скачать исходный код программы и исполняемый файл. |