Delphi. Учимся на примерах

В своей первой книге, "Delphi. Только практика", автор рассматривал примеры различных интересных программ. Эта книга является продолжением первой книги. Продолжением, поскольку исходные коды программ, которые рассматриваются в первой и второй книге, не повторяются. Также как и в "Delphi. Только практика", в данном издании подробно рассмотрены программы для сетей, различные шуточные программы, простые игрушки, некоторые полезные приложения, разработка приложений в стиле Windows XP. В частности, здесь можно найти такие примеры как бесплатная отправка SMS, FTP-клиент,

Поскольку рассмотренные примеры достаточно просты, то даже начинающий программист сможет быстро освоить азы написания приложений в Delphi и перейти к разработке собственных проектов (описание синтаксиса языка программирования Object Pascal представлено в приложении Г). Само собой разумеется, что для изучения изложенного в книге материала желательно знать основы работы с Windows, поскольку Delphi — средство разработки программ именно для этой операционной системы.

Структура книги такова, что ее не обязательно читать от начала до конца, — можно просто открыть любую главу и разработать рассматриваемую программу. Все примеры подробно объясняются и содержат комментарии сложных строк кода. Книга будет интересна как опытным программистам, так и тем, кто только начал изучать язык программирования Delphi.

К книге прилагается компакт-диск, содержащий исходные и исполняемые файлы всех рассмотренных программ, а также цветные копии рисунков.

Как известно, интерфейс программ, написанных на Delphi и запускаемых в операционной системе (ОС) Windows XP, при любом стиле оформления будет иметь одинаковый вид. В этой главе будет показано как написать программу, которая будет отображаться в стиле XP.

С помощью любого редактора создайте текстовый файл и введите в нем следующий текст:

Сохраните этот файл под именем с:\xp_style.txt. Затем создайте еще один текстовый файл следующего содержания:

Сохраните этот файл под именем xp_style.rc в каталоге С:\Program file\Delphi\Bin.

Теперь запустим программу C: \Program File\Delphi\Bin\ brcc32.exe, передав ей в качестве параметра имя файла хрstyle.re. Для этого следует перейти в режим командной строки, выполнив команду системного меню Пуск→Выполнить, а затем в диалоговом окне Запуск программы введя команду cmd и нажав клавишу <Enter>. В режиме командной строки с помощью команды cd перейдем в каталог С:\Program file\Delphi\Bin и выполним следующую команду:

В результате в каталоге C:\Program file\Delphi\Bin должен появиться ресурсный файл xpstyle.res, который следует подключать к приложению в том случае, когда его требуется оформить в стиле Windows XP.

Проверим, так ли это, создав программу в стиле XP. Откройте диалоговое окно настройки свойств Рабочего стола и выберите тему Windows XP (если она еще не выбрана).

Создайте в Delphi новый проект и разместите на форме компонент Edit категории Standard. Присвойте его свойству Text следующее значение: Все компоненты и сама форма в стиле Windows ХР. Ниже разместите кнопку (компонент Button категории Standard), при нажатии которой будет появляться информационное окно (оно тоже должно быть в стиле XP). Обработчик события OnClick для кнопки:

Теперь при нажатии кнопки будет появляться окно, содержащее текст, извлеченный из поля для ввода. Запустим программу на выполнение. Как видим, внешний вид интерфейса никак не изменился, не смотря на то, что выбрана тема Windows XP.

Для того чтобы решить эту проблему найдите в программном модуле раздел implementation (сейчас в нем указано только подключение файла формы *.dfm при помощи директивы {$R *.dfm}). Для того чтобы подключить наш файл ресурсов, следует в разделе implementation добавить строку

Теперь можно запустить программу и насладиться интерфейсом ХР (рис. 1.1).

Рис. 1.1. Элементы формы отображаются в стиле Windows XP

Введите в поле какой-либо текст и нажмите кнопку — должно появиться информационное окно, которое также будет отображаться в стиле Windows XP (рис. 1.2). При этом, размер exe-файла увеличился всего лишь на несколько сотен байт.

Рис. 1.2. Информационное окно также отображается в стиле Windows XP