Сергей Парижский: Delphi. Учимся на примерах

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

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

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

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

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

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

ApplicationDescription

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

1 24 C:\xp_style.txt

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

⊚ Файлы xp_style.txt и xp_style.rc можно найти на прилагаемом к книге компакт-диске в папке Chapter01.

Примечание

Указанный выше путь к папке Bin предполагает, что Delphi был установлен в каталог, выбранный по умолчанию. Если при установке был выбран другой каталог, то используйте именно его. Далее в книге будет везде использован путь по умолчанию.

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

brcc32.exe xp_style.rc

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

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

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

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(Edit1.Text);

end;

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

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

{$R xp_style.res}