100700

Моя первая программа. Работа с компонентами TLable, Tbutton, TColorBox

Лабораторная работа

Информатика, кибернетика и программирование

Label - метка. Разместите на форме командную кнопку которая позволяла бы уменьшать шрифт объекта Label на 4 пикселя и увеличивать на 2 пикселя. Попробуем таким способом включить в окно программы компонент Label. Новый компонент имеет стандартное имя Label и надпись на нем повторяет это имя.

Русский

2018-02-05

208.5 KB

0 чел.

ЛАБОРАТОРНАЯ РАБОТА №1

Моя первая программа.

Работа с компонентами TLable, Tbutton, TColorBox.

Цель работы:

Изучение основных свойств компонентов и работа с ними.

1 Краткая теоретическая часть

Любой размещаемый на форме компонент характеризуется некоторым набором параметров: положением, размером, цветом и т. д. Часть этих параметров, например, положение и размеры компонента, можно изменять, манипулируя с компонентом в окне формы. Для изменения других параметров предназначено окно Инспектора объектов. Это окно содержит две страницы - Properties (Свойства) и Events (События). Страница Properties служит для установки нужных свойств компонента, страница Events позволяет определить реакцию компонента на то или иное событие. Совокупность свойств отображает видимую сторону компонента: положение относительно левого верхнего угла рабочей области формы, его размеры и цвет, шрифт и текст надписи на нем и т. п.; совокупность событий - его поведенческую сторону: будет ли компонент реагировать на щелчок мыши или на нажатие клавиш, как он будет вести себя в момент появления на экране или в момент изменения размеров окна и т. п.

Палитра компонентов - это главное богатство Delphi. Она занимает правую часть главного окна и имеет закладки, обеспечивающие быстрый поиск нужного компонента. Под компонентом понимается некий функциональный элемент, содержащий определенные свойства и размещаемый программистом в окне формы. С помощью компонентов создается каркас программы.

Label - метка. Этот компонент используется для размещения в окне не очень длинных однострочных надписей. Он имеет такие основные свойства как:

Caption (название) - изменяет название компонента;

Color (цвет) – изменяет цвет компонента;

Font – позволяет изменить шрифт текста, начертание, размер, видоизменение, цвет;

Visible (видимость )- позволяет сделать объект невидимым на форме при запуске программы

Button - командная кнопка. Обработчик события OnClick этого компонента обычно используется для реализации некоторой команды. Обладает такими же основными свойствами, что и метка: Caption, Color, Font, Visible, кроме того координаты расположения и размер командной кнопки задаются с помощью свойств height, left, top и width.

ColorBox - специальный вариант ComboBox - комбинированного списка выбора, представляющего собой комбинацию списка выбора и текстового редактора. ColorBox предназначен для выбора одного из системных цветов. Класс TColorCombo представляет из себя законченную компоненту которую Вы можете непосредственно поместить палитру компонент Delphi. Этот компонент находится на закладке Additonal, где помещены 18 дополнительных компонентов, с помощью которых можно разнообразить вид диалоговых окон.

Timer - таймер. Этот компонент служит для отсчета интервалов реального времени. Он находится на страницу System. На этой странице представлены компоненты, которые имеют различное функциональное назначение, в том числе компоненты, поддерживающие стандартные для Windows технологии межпрограммного обмена данными OLE (Object Linking and Embedding -связывание и внедрение объектов) и DDE (Dynamic Data Exchange -динамический обмен данными). Технология DDE в современных программах полностью вытеснена гораздо более мощной технологией СОМ, и поэтому соответствующие им компоненты в книге не рассматриваются.

Окно кода предназначено для создания и редактирования текста программы. Этот текст составляется по специальным правилам и описывает алгоритм работы программы. Совокупность правил записи текста называется языком программирования. В системе Delphi используется язык программирования Object Pascal, который представляет собой расширенную и усовершенствованную версию широко распространенного языка Паскаль

Сразу после открытия нового проекта в нем будут такие строки:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Frms, Dialogs;

type

TFormI = class(TForm) private

{ Private declarations } public

{ Public declarations } end;

var

Form1: TForm1;

implementation

{SR *.DFM}

end.

Эти строки Delphi автоматически вставляет в окно кода для новой формы.

3 Задание к работе

1. Изучите все свойства необходимых для работы компонентов.

2. Разместите на форме командную кнопку, которая позволяла бы уменьшать шрифт объекта Label на 4 пикселя и увеличивать на 2пикселя.

3. Создайте группу кнопок, позволяющих видоизменять текст (видоизменение, начертание, тип шрифта), используя свойство Font.

4. Увеличьте скорость движения надписи.

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

Разместить на форме новый компонент не представляет труда. Для этого сначала нужно его выбрать (щелкнуть по нему мышью) в палитре компонентов, а затем щелкнуть мышью по точке рабочего пространства формы, где должен располагаться левый верхний угол компонента.

Попробуем таким способом включить в окно программы компонент Label.

Новый компонент имеет стандартное имя Label1, и надпись на нем повторяет это имя. Изменим эту надпись, для этого в окне Инспектора объектов в свойстве Caption удалим стандартное имя

А затем разместим на форме еще один компонент - кнопку - и заставим ее откликаться на событие, связанное с нажатием левой кнопки мыши. Чтобы заставить программу реагировать на нажатие кнопки, необходимо написать на языке object pascal фрагмент программы, который называется обработчиком события.

Этот фрагмент должен представлять собой последовательность текстовых строк, в которых программист указывает, что именно должна делать программа в ответ на нажатие кнопки. Фрагмент оформляется в виде специальной подпрограммы языка Object Pascal - процедуры.

Чтобы заставить Delphi самостоятельно сделать заготовку для процедуры обработчика события OnClick, дважды подряд без заметной паузы щелкните мышью по вновь вставленному компоненту. В ответ Delphi активизирует окно кода, и вы увидите в нем такой текстовый фрагмент:

procedure TFormI.ButtonlClick(Sender: TObject);

begin

end;

Слово procedure извещает компилятор о начале подпрограммы-процедуры. За ним следует имя процедуры TFormi.ButtonlClick. Это имя - составное: оно состоит из имени класса TForm1 и собственно имени процедуры Button1Click. Слово begin (начало) сигнализирует компилятору о начале последовательности предложений, описывающих алгоритм работы процедуры, а слово end (конец) - о конце этой последовательности.

Пусть наша кнопка будет запускать программу, т.е. присваивать Label1 название «Я начинаю программировать на Delphi!». Назовем кнопку «Пуск».

Введем программный код для кнопки «Пуск»:

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption:='Я начинаю программировать на Delphi!';

end;

Для командной кнопки «Закрыть»:

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

Эта кнопка закрывает нашу программу.

Следующая командная кнопка будет увеличивать шрифт текста на 2 пикселя. У свойства Font есть списки, например Size (размер), который Вы можете обнаружить при щелчке в окне Инспектора объектов напротив Font по знаку «+». Код программы выглядит следующим образом:

procedure TForm1.Button3Click(Sender: TObject);

begin

Label1.Font.Size:=Label1.Font.Size+2;

end;

Получаем следующий результат:

Чтобы надпись могла изменять свое положение, разместим на форме четыре командные кнопки, назовем их: «ВЕРХ», «НИЗ», «ПРАВО», «ЛЕВО» и напишем для них фрагменты программ соответственно.

Label1.Top:=Label1.Top-3;

Label1.Left:=Label1.Left+3;

Label1.Top:=Label1.Top+3;

Label1.Left:=Label1.Left-3;

Для изменения цвета поместим на форме ColorBox (комбинированный список цветов). Его обработчик событий имеет следующий вид:

procedure TForm1.ColorBox1Change(Sender: TObject);

begin

Label1.Font.Color:=ColorBox1.Selected;

end;

Теперь пользователь может поменять цвет текста надписи на любой, понравившейся ему.

Чтобы наша надпись могла производить движение, вставим в форму компонент таймер и командную кнопку.

Для таймера в окне кода опишем следующий программный код:

label1.Left:=label1.Left+a;

if (label1.Left=form1.Width-label1.Width-10) then a:=-1;

if label1.Left=0 then a:=1;

А для командной кнопки

a:=1;

Timer1.Enabled:=true;

timer1.Interval:=10;

Необходимо описать переменную «a». Это делается после слова Var.

var

Form1: TForm1;

a:integer;

5 Содержание отчета

1. Титульный лист

2. Название работы

3. Цель работы

4. Краткая теоретическая часть

5. Собственные разработки программы

6. Ответы на контрольные вопросы

6 Контрольные вопросы

1. Что называется классами в Delphi?

2. Какие списки находятся в свойстве Font?

3. Что позволяет делать свойство Visible?

4. Что означает свойство Name?


 

А также другие работы, которые могут Вас заинтересовать

26717. Геополитика 12.04 KB
  Геоэкономика в отличие от традиционной геополитики делает акцент на экономической мощи государства. Предмет изучения Основной объект изучения геополитики геополитическая структура мира представленная множеством территориальных моделей. Исследование механизмов и форм контроля над территорией одна из основных задач геополитики. Историческим ядром геополитики выступает география ставящая во главу угла исследование прямых и обратных связей между свойствами территории и балансом соперничеством или сотрудничеством мировых силовых полей.
26718. Основные направления и разделы геополитики 13.61 KB
  Геополитика будучи преимущественно политикой наоборот концентрирует свое внимание на политических явлениях и стремится дать географическую интерпретацию и анализ географических аспектов этих явлений. В рамках самой геополитики различают два достаточно четко обозначенных направления: геополитика предписывающая или доктринальнонормативная к ней можно причислить не боясь ошибиться всю немецкую школу связанную с именем Хаусхофера; геополитика оценочноконцептуальная типичные представители Маккиндер Спикмен Коэн. Геополитика...
26719. Сфера глобальных взаимоотношений между государствами 11.55 KB
  Сфера глобальных взаимоотношений между государствами является предметом анализа комплекса исторических наук истории внешней политики национальных государств взаимоотношений между отдельными государствами и группами государств дипломатической истории истории международных отношений имеющих устойчивую традицию. Третье понятие сфера международных отношений например экономические дипломатические политические военные идеологические позволяет определять предмет и направление исследования привлекать или отбрасывать те или иные...
26720. Русская геополитика 15.24 KB
  Периферийная модель помещает географическую ось истории в периферийную зону соприкосновения морских и континентальных держав концепция Rimland'а Н. Зональная модель помещает ключевой геополитический регион за который обречены бороться центры мировой силы в зоне умеренных и субтропических поясов Северного полушария. В реальности такая модель практически полностью повторяет предыдущую поскольку евразийская можно даже сказать российская периферия по большей части совпадает с зоной конфликтов. Мондиалистская модель...
26721. Основные категории современной геополитики 13.08 KB
  Одним из ключевых понятий геополитики является пространственнотерриториальный фактор. Геополитические процессы представляют собой исторические процессы формирования развития взаимодействия и распада субъектов геополитики. Одной из важнейших категорий геополитики является понятие субъекты геополитики.
26722. ИСТОЧНИКИ ГЕОПОЛИТИКИ 21.71 KB
  Исследование механизмов и форм контроля над территорией одна из основных задач геополитики. Историческим ядром геополитики выступает география ставящая во главу угла исследование прямых и обратных связей между свойствами территории и балансом соперничеством или сотрудничеством мировых силовых полей. Методологическим ядром геополитики при этом является моделирование на общепланетарном уровне хотя в составе этой научной дисциплины существуют и региональные и локальные разделы например исследование границ проблем спорных территорий...
26723. Биполяность и монополярность мира 15.56 KB
  Дополнительно предъявлялись следующие аргументы: только США обладают симметричным могуществом т. в военной экономической политической сферах одновременно; превосходство американской модели развития что было доказано успешной историей США и самое главное победой в холодной войне; отсутствие у США сколь либо серьёзного конкурента. При этом никто не ставил под сомнение уникальные позиции США в мире.Кустарёв никто из экспертов не верит что США смогут навсегда остаться единственной сверхдержавой Вот образцовое суждение профессора...
26725. Североатлантический регион в современном мире 12.09 KB
  Громадный район северной атлантики от восточного побережья Канады и США на западе и до Кольского полуострова и Балтики на востоке этот геостратегический регион когдато в равной мере контролировался блоками НАТО и Варшавского договора. Североатлантический регион САР играет ведущую роль в большой политике что объясняется прежде всего его важным стратегическим местоположением: это транзитный район между Европой и Северной Америкой. Так объемы двусторонней торговли между США и ЕС почти на 50 больше чем объемы транстихоокеанской...