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?


 

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

85576. Информационные системы управления создания НРМ в угольном регионе 133 KB
  Работа по созданию НРМ проводилась по схеме В дальнейшем ГУПП ОГА контролировало создание НРМ и отчитывалось по данным исполнительной структуры по созданию НРМ какой являлась государственная компания Лугансклегинвест в Минэкономики Минфину Министерству труда и социальной политики и исполнительному органу фонда государственному центру занятости. ГК Лугансклегинвест ГКЛЛИ осуществляло внедрение программы создания НРМ. После заключения договора между ГК ЛЛИ и инициатором проекта создания НРМ о правах и...
85577. Проектирование информационной системы на предприятии «Вояж» 1.8 MB
  ЧП «Вояж» является юридическим лицом, находится на собственном балансе и имеет текущий счет в банке. Оно может получать, распоряжаться материальными ценностями, зданиями, сооружениями и другими средствами в рамках утвержденных финансовых планов, заключать договора и соглашения, в том числе на ремонт...
85578. Разработка биллинговой системы использования ресурсов сети Интернет 1.96 MB
  На основании диаграмм процесса предоставления доступа к ресурсам сети Интернет разработано хранилище данных позволяющее в реальном масштабе времени осуществлять анализ статистики использования ресурсов разработана процедура заполнения хранилища данных.
85579. Теоретические аспекты особенностей планирования финансово-экономической деятельности предприятия на примере ООО «ЮГ» 673 KB
  Внедрение интегрированной автоматизированной системы для любого коммерческого предприятия является одной из наиболее трудоемких и дорогостоящих программ развития. В этих условиях чрезвычайно велика роль руководителя предприятия, принимающих решения стратегического характера в области компьютеризации.
85580. Разработка автоматизированной системы управления финансовой деятельностью предприятия 473.5 KB
  В практической части особое внимание уделено разработке базы данных которая отслеживает движение финансовых средств. Впоследствии на основе этой базы данных используя балансовые отчеты можно делать квартальные отчеты годовые и т.д. Режимы функционирования банка данных в производственных условиях.
85581. Разработка методики оценки эффективности интернет-технологий в работе субъектов финансового рынка 882 KB
  В результате исследования рекламно-информирующих банковских webстраниц было выяснено что основным требованием предъявляемым к качественному сайту является полное удобное и качественное изложение на нем банковской информации.
85582. Разработка автоматизированной системы документооборота банка 357.5 KB
  В работе рассмотрен существующий докуметооборот предприятий в целом и степень его автоматизации на примере Краснодонского ТОБО АК АПБ «Украина». Предложено программное обеспечение, обеспечевающее дополнительное удобство работы с электронными документами при использовании существующего программного...
85583. Разработка технологического процесса восстановления гильзы цилиндра двигателя СМД-14 268.47 KB
  Обеспечение потребностей предприятий по эксплуатации и ремонту техники в запасных частях осуществляется за счет изготовления и восстановления деталей. В этих условиях большое внимание должно уделяться экономному использованию материальных средств, развитию работ по восстановлению деталей.
85584. Пути совершенствования отдельных направлений кадровой политики в ООО «Хлопок-Екатеринбург» 853.5 KB
  Сегодня эффективное управление персоналом организации играет решающую роль в обеспечении конкурентоспособности фирм, ибо современный работник должен обладать стратегическим мышлением, предприимчивостью, широкой эрудицией, высокой культурой.