Проект на Паскаль «Моя первая программа»


Создать новый проект.

Для нашей первой программы нужно будет всего один компонент Label (Надпись).

  • Для его создания на закладке Standard мышкой щелкнуть на компоненте Label.

  • Затем навести указатель мыши на форму и щелкнуть в нужном месте, (можно дважды щелкнуть по компоненту и она появится в центре формы). Компонент можно переместить в любое место формы. Также можно изменить размеры компоненты, так же как размеры любого графического объекта.

    Изменить свойства компонента Надпись в окне Object Inspector:

  • В левой части таблицы выбрать Caption (Заголовок). Щелкнуть в правой части таблицы напротив свойства Caption и ввести текст надписи: «Я программирую на Delphi».

  • Установить различные значения для свойства Alignment (выравнивание).Выровнять текст по центру (свойство Center).

  • Изменить параметры шрифта.В строке свойства Font нажать на кнопку. Задать параметры шрифта Arial, 18, жирный. Также выбрать цвет синий.

  • Запустить проект на выполнение.

  • Сохранить проект, выполнив команду File Save All.В диалоговом окне создать новую папку и дать ей название «Первая программа». Сохранить в папке файл модуля Unit1.pas и Project1.dpr.

  • Сделать следующие дополнения:

  • добавить на форму кнопку, после щелчка по которой надпись «Я программирую на Delphi» изменится на текст «После завершения работы выключите компьютер».

  • на форму установить кнопку BitBtn (bkClose) для выхода из

    приложения.

  • Открыть проект, сохраненный в папке «Первая программа».

  • Поставить на форму две кнопки Button и BitBtn, в окне Object

    Inspector, задать свойства этим кнопкам согласно таблице:

    Описание свойств для кнопок

    объект

    свойство

    описание свойства

    значение

    Button1

    Сaption

    Название кнопки

    изменить надпись

    Font

    параметры шрифта

    Arial, 9, цвет черный

    Name

    Название (имя) кнопки

    BtnText

    BitBtn1

    kind

    команда

    bkClose

    Caption

    Надпись на кнопке

    выход

    Font

    параметры шрифта

    Arial, 9, цвет малиновый

    Name

    Название (имя) кнопки

    BtEnd

    1. Для кнопки BitBtn программировать действие на нажатие этой кнопки не требуется. Эта кнопка уже имеет готовую команду «закрыть форму».А для кнопки Button1 нужно написать код программы, чтобы после нажатия на эту кнопку изменился текст на форме. Для этого нужно дважды щелкнуть мышью по этой кнопке, откроется окно редактора кода. Итак, после щелчка мышью в окне редактора кода появится заготовка процедуры, где мы имеем между служебными словами begin (начало процедуры) и end (конец процедуры) написать нужный нам код.

      Переход от формы к окну редактора кода можно осуществить функциональной клавишей F12

    2. Таким образом, для каждого события на которую должна реагировать программа нужно написать процедуру. Название процедуры генерируется автоматически, где указывается название формы на которой находится компонент и название самого компонента под названием события. В нашем случае будет запись такой TForm1.BtnTextClick (Sender: TObject);Чтобы компонент Label1 изменил текст на другой

      нужно в процедуре написать такой код:

      Label1.Caption: = ‘После завершения работы

      выключите компьютер ‘; .

      Следует отметить, что текст для компонента Label1 можно

      изменить

      • через свойство Caption, как мы это делали раньше,

      • или программным способом, как мы это выполнили выше.

      Второй способ используется тогда, когда нужно изменить текст надписи в ходе выполнения программы.

      Свойство Caption имеет строковый тип. Поэтому значение для него можно задавать только текстовые. Когда вы устанавливаете свойство Caption через Object Inspector, то текст записывается без кавычек, а если программным способом, то информация для этого свойства записывается в одинарных кавычках (например «Текст»).

    3. Запустить проект на выполнение и проанализировать действие

      кнопок.

      image

[Всего голосов: 4    Средний: 5/5]

Читать  Практическая работа №8 Тема: Использование циклов