Имя Пароль
Зарегистрироваться


* При перепечатке материалов ссылка на www.SeoLiga.ru обязательна! RSS



Первая программа
31 марта 2009

Теперь вы уже имеете необходимые знания для того, чтобы создать свою первую
программу. Это будет простенькая программа, имеющая интерфейс с двумя кнопками
и надписью, которую можно как выводить на экран, так и убирать с экрана. Поста-
райтесь как можно лучше оформить этот незамысловатый графический интерфейс. Об-
разно можно сказать, что программу встречают по одежке, т.е. по виду интерфейса. Хо-
рошо и гармонично оформленный интерфейс, где интуитивно понятно назначение всех
его частей, внушает доверие к программе. Понятно, что невозможно только средствами
фафики выразить все функциональные особенности программы, поэтому должны быть
и поясняющие надписи, и появляющиеся подсказки, и файл справки. Только в самых
простейших случаях, как например, первая профамма, можно этого не делать.
Сейчас приступим к разработке первой профаммы, это не займет много времени.
1. Создайте проект типа VCL Forms Application.
2. Разместите на нем две кнопки и надпись. Используя способы выравнивания
с панели Align или вручную, постарайтесь расположить их симметрично, выбрав
подходящие размеры.
3. Назовите первую кнопку Вывод надписи, а вторую — Очистка (свойство
Caption).
4. Для надписи выберите подходящий размер шрифта (выше говорилось, как
это сделать).
5. Создайте обработчики событий для нажатия кнопки.
6. Для создания обработчика события нажатия кнопки необходимо в инспекторе объ-
ектов выбрать вкладку Events (События), где следует выбрать событие Onclick
(Щелчок). Разумеется, инспектор объектов должен отображать настройки нужного
объекта. В нашем случае это будет кнопка Buttonl с названием Вывод надписи.
7. Щелкните мышью на появившемся справа от события Onclick белом поле,
и Delphi моментально перенесет вас в редактор кода, где сделает заготовку
для обработчика события и установит курсор на том месте, где нужно ввести
необходимый код.
8. Вручную введите следующий код. '
Labell.Caption := 'Моя первая программа';
9. Проделайте то же самое со второй кнопкой, для которой введите такой код.
Labell.Caption := ' ' ;
Запустите программу и пощелкайте на кнопках.
Полностью листинг вашей первой программы приведен ниже.
unit FirstProg;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, System.ComponentModel, Borland.Vcl.StdCtrls;
type
TForml = class(TForm)
Buttonl: TButton;
Button2: TButton;
Label1: TLabel;
procedure ButtonlClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Forml: TForml;
implementation
{$R *.nfm}
procedure TForml.ButtonlClick(Sender: TObject);
begin
Label1.Caption := 'Моя первая программа1;
end;
procedure TForml.Button2Click(Sender: TObject);
begin
Labell.Caption := '';
end;
end.
Изучив листинг, вы найдете имена созданных вами объектов и выводимых надпи-
сей. Больше об этом листинге говорить не будем, пока не познакомимся с основами
объектно-ориентированного языка Delphi. Хочу только отметить, что несмотря на ог-
ромную работу, которую должен проделать компьютер по выводу на экран созданного
вами окна, обработке событий (для чего необходимо взаимодействие с системой
Windows по передаче сообщений), созданию кода по обработке критических ситуаций
и т.д., программа, с которой работает пользователь, очень короткая. В ней показаны
только те фрагменты, в которых необходимо делать изменения. Вся остальная часть
огромной программы скрыта в недрах Delphi, и вам с ней на первом этапе не придет-
ся работать. Это одно из преимуществ Delphi. В других языках программирования вы-
водится гораздо больше кода, с которым труднее работать.
Теперь несколько слов об оформлении интерфейса. Когда у вас всего три объекта,
то нетрудно их располагать вручную, перемещая элементы на нужные места и задавая
необходимые размеры. Но когда интерфейс достаточно загружен, и при этом установ-
лена достаточно мелкая сетка на форме, то удобнее пользоваться палитрой способов
выравнивания. Размеры сетки, как и многие другие настройки среды Delphi, можно
задать в окне Options, которое можно открыть, выбрав команду меню Tools^Options....
В окне выбирается вкладка Windows Form Designer, где находится настройка Grid Size,
с помощью которой и устанавливаются размеры сетки для формы.
В этой же группе находятся такие настройки, как Show grid (Показать сетку)
и Snap to grid (Привязка к сетке). Привязка к сетке означает, что границы всех объек-
тов будут проходить только по сетке, что удобно для разработки аккуратно смотря-
щихся интерфейсов.
Об остальных настройках поговорим в тех случаях, когда будем обсуждать соответ-
ствующие темы. Хотя можете и поэкспериментировать, многие из них интуитивно
понятны и не требуют дополнительного пояснения. После экспериментов нужно бу-
дет вернуть все установки в исходное состояние, так как в дальнейшем при описании
работы Delphi предполагается, что все установки сделаны по умолчанию.
И наконец, разберемся, что же делать с разработанной программой. Она нам может
пригодиться в дальнейшем, поэтому сохраним ее. Для этого выберите команду
FileOSave Project as... и сохраните проект и исходные файлы в отдельном каталоге
(я предполагаю, что вы знакомы с Windows и знаете, как это сделать). При этом сохра-
нятся файл проекта (расширение .dpr), файл формы (расширение .dfm), исходный
файл (расширение .pas) и несколько других нужных для проекта файлов. После того
как вы запустите проект, в этом каталоге появятся файлы с расширениями . ехе и . dcu.
Это будут выполняемый файл и файл, созданный компилятором. Можете запустить вы-
полняемый файл отдельно и убедиться, что он работает так же, как и в среде Delphi.

Теги: программирование на си, примеры программирования Borland Delphi

Статьи по теме:

Translate
Определение готовности сокета
Разметка, единицы измерения и масштаб
Процедурные типы
Статические изображения
Использование полей базы данных в выражениях
Метод PrintBackground
EmptyTable
Свойство ChildBand
Панель HTML Table
Асинхронный режим, основанный на сообщениях
Общие сведения о сокетах
SearchKey
Свойство Bands
Печать из полей базы данных
| Borland Delphi | vitek |
 


Пн Вт Ср Чт Пт Сб Вс
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30


     



Rambler's Top100

Данный сайт или домен продается ICQ: 403-353-727

© 2009 Seoliga.ru | Borland Delphi | Первая программа. Регион сайта: Москва и Санкт-Петербург