Внимание! Если для выполнения лабораторных работ Вы поменяете компьютер, процедуру регистрации необходимо повторить.

3.После запуска среды TurboDelphi для начала работы над новым Win-приложением (проектом), необходимо в меню "File" выбрать команду "New", а затем "VCL Forms Application" (также "VCL Forms Application"можно запустить, выбрав в окне "Tool Palette").

4.Окно среды TurboDelphi содержит следующие основные элементы:

5.За окном формы находится окно "Редактора кода". Доступ к нему можно получить, щелкнув двойным щелчком по компоненту, выбрав " Code ", или нажав клавишу "F12". Окно редактора кода имеет вид:

Окно кода.

6.Добавить на форму компонент "Button" (командная кнопка ), предварительно раскрыв вкладку "Standard" в палитре компонентов (окно "Tool Palette"). Для этого выбрать ее в палитре компонентов и мышью нарисовать на форме.

Вкладка "Standard".

7.По умолчанию имя командной кнопке будет присвоено имя - Button1. Окно среды TurboDelphi примет следующий вид:

Компонент "Button"(командная кнопка).

8.Аналогичным способом добавьте на форму: два компонента окно редактирования "Edit" (по умолчанию будут присвоены имена - Edit1 и Edit2) и 2 компонента надпись "Label" (с именами Label1 и Label2).

9.Активизируйте форму Form1 щелчком мыши. В окне свойств "Properties" выберите свойство "Caption" и присвойте ему значение "Ввод и отображение текста" (путем ввода с клавиатуры измените надпись в поле "Caption").

10.Активизируйте щелчком мыши до появления маркеров компонент Edit1. В окне свойств "Properties" выберите свойство "Text" и присвойте ему значение "Здравствуй, мир!" (путем ввода с клавиатуры измените надпись в поле "Text").

11.Для этого же компонента Edit1выберите категорию свойств "Font", раскройте список свойств, нажав на "+" и присвойте (измените) значение свойства "Color" (цвет текста), выбрав любой цвет из палитры цветов. Например:

12.Для этого же компонента Edit1 в категории свойств "Font" присвойте (измените) значение свойства "Size" (размер шрифта), указав - 10.

13.Активизируйте щелчком мыши до появления маркеров компонент Edit2. В окне свойств "Properties" выберите свойство "Text" и присвойте ему пустое значение, удалив текст "Edit2").

14.Активизируйте щелчком мыши до появления маркеров компонент Label1. В окне свойств "Properties" выберите свойство "Caption" и присвойте ему значение "Вася Иванов" (путем ввода с клавиатуры измените надпись в поле "Caption").

15.Для этого же компонента Label1 присвойте (измените) значение свойства "Color" (цвет фона надписи) на любой цвет (например):

16.Для компонента Label1 в категории свойств "Font" присвойте (измените) значение свойства "Size" (размер шрифта), указав - 12.

17.Для этого же компонента Label1 в категории свойств "Font" присвойте (измените) значение свойства "Color" (цвет шрифта), например:

18.Измените начертание шрифта для текста надписи Label1. Для этого в свойстве "Font" нажмите кнопку и выберите начертание "жирный курсив":

19.Для этого же компонента Label1 установите выравнивание текста по центру. Для этого присвойте (измените) значение свойства "Alignment" (выравнивание), выбрав - taCenter.

20.После всех манипуляций окно пользовательской формы приобретет вид:

21.Запустите приложение на компиляцию и выполнение, нажав кнопку F9, кнопку на панели быстрого доступа " Run " или выбрав команду меню "Run".

22.Нажмите кнопку "Вывод текста". Ничего не происходит. Закройте окно приложения.

23.Чтобы заставить программу реагировать на нажатие кнопки, необходимо написать фрагмент программы, который называется обработчиком события. Фрагмент оформляется в виде специальной подпрограммы – процедуры. Чтобы заставить TurboDelphi самостоятельно сделать заготовку для процедуры обработчика события OnClick, выделите до появления маркеров и дважды щелкните мышью по компоненту "Button1". В ответ TurboDelphi активизирует окно кода, в котором можно увидеть текстовый фрагмент: procedure TForm1.Button1Click(Sender: Tobject);begin end; 24.Слово procedure извещает компилятор о начале подпрограммы – процедуры. За ним следует имя процедуры TForm1.Button1Click. Это имя – составное: оно состоит из имени класса TForm1 и собственно имени процедуры и события Button1Click.

25.Введите между ключевыми словами begin и end следующий текст:

label2.Caption:='Привет!';

edit2.Text:=label2.Caption;

26.Снова запустите программу на выполнение и нажмите кнопку "Вывод текста":

27.Закройте приложение.

28.Для вывода текста также можно использовать холст "Canvas". Canvas (холст) – это область в форме для вывода текста, рисунков и других графических компонентов. Метод холста "TextOut" применяется для написания текста в форме. Для этого добавьте в процедуру TForm1.Button1Click еще одну строку текста:

29.Запустите программу на выполнение и нажмите кнопку "Вывод текста":

30.Сохраните форму и проект на диске. Когда вы сохраняете новый проект, TurboDelphi создает ряд файлов. В связи с этим для сохранения созданного проекта зайдите в меню "File" и выберите команду "Save all". Создайте в папке "Мои документы" отдельную папку с названием "Первый проект".

Задание 2

Порядок выполнения:

1.Создайте в папке "Мои документы" две отдельные папки "СР_1" и "СР_2".

2.Выполните первую самостоятельную работу "Камень судьбы". Создайте Windows-приложение, содержащее надпись и три командных кнопки, позволяющие изменять текст надписи после нажатия соответствующей кнопки:

- после нажатия первой кнопки с названием "Налево пойдешь" выводится надпись "Коня потеряешь";

- после нажатия второй кнопки с названием "Прямо пойдешь" выводится надпись "Голову потеряешь";

- после нажатия третьей кнопки с названием "Направо пойдешь" выводится надпись "Женат будешь".

3.Сохраните проект "Камень судьбы" в папку "СР_1". Пример выполненного проекта:

Задание 3

Порядок выполнения:

1.Выполните вторую самостоятельную работу. Создайте Windows-приложение, содержащее надпись (компонент Label1) и командную кнопку, после нажатия которой название формы становится аналогичным тексту в надписи.

2.Сохраните проект в папку "СР_2". Пример выполненного проекта:

Дата добавления: 2015-11-14