Учебно-методическое пособие для студентов физико-математических специальностей вузов Балашов (стр. 5 из 18)
Свойство Label1. Color задает цвет самого компонента, а свойство Label1.Font.Color — цвет, который используется для надписи внутри данного компонента.
Рассмотрим несколько простых примеров использования данных компонентов.
Пример 1
При нажатии на кнопку, на экране выдается, а затем при повторном нажатии исчезает некоторое сообщение, например «Моя первая программа на языке Delphi». При повторном выводе размер надписи должен увеличиваться.
Для этого поместим на форме компонент Label и кнопку Button. Затем определим соответствующее значение свойства Caption и создадим процедуру обработки нажатия кнопки, которая имеет следующий вид:
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Visible:=not label1.Visible;
if label1.Visible then
label1.Font.Size:=label1.Font.Size+1;
end;
В этой программе при каждом очередном нажатии происходит изменение свойства Visible, вследствие чего надпись то появляется, то исчезает с экрана, а также происходит увеличение свойства Size.
Для вывода определенной информации на экран, кроме уже описанного компонента Label, может быть также использован компонент Panel с той же самой закладки или StaticText со страницы Additional. Они имеют
незначительные отличия от компонента Label. Например, свойство BorderStyle, позволяющее задать стиль границы компонента.
Остальные компоненты позволяют вводить и редактировать информацию, включая возможность выделения, копирования, удаления и вставки фрагментов текста. Отметим общие для всех редакторов методы: Clear — удалить весь текст, помещенный в редакторе; ClearSelect — удалить выделенный фрагмент текста; CopyToClipboard — копировать в буфер выделенных фрагмент, CutToClipboard — удалить из текста выделенный фрагмент и поместить его в буфер, PasteFromClipboard — копировать текст из буфера в то место редактора, где в данный момент находится курсор.
Для всех редакторов определено дополнительное событие OnChange, возникающее, когда изменяется текст, находящийся в редакторе.
Для ввода или вывода одной строки могут использоваться компоненты Edit со страницы Standart и MaskEdit со страницы Additional. Основное свойство данных компонентов — это строка, которая либо вводится, либо выводится. Данное свойство имеет имя Text и тип String, доступное как во время подготовки, так и время выполнения. Логическое свойство ReadOnly позволяет запретить изменения, а целочисленное свойство GetTextLen выдает текущую длину строки.
Пример 2
Сделать так, чтобы при вводе текста в первом компоненте Edit, во втором отображалась реальная длина вводимой строки. Кроме этого, при выходе из компонента Edit1 его содержимое копировалось в буфер и удалялось, а при возвращении появлялось снова.
В данном случае будем использовать три события, а именно OnChange, OnEnter и OnExit. Тогда программа будет иметь следующий вид:
procedure TForm1.Edit1Change(Sender: TObject);
begin
edit2.Text:= IntToStr(edit1.GetTextLen);
end;
procedure TForm1.Edit1Enter(Sender: TObject);
begin
edit1.PasteFromClipboard;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
edit1.SelectAll;
edit1.CopyToClipboard;
edit1.Clear;
end;
Событие клавиатуры возникает только в том случае, если нажата или отпущена произвольная клавиша. Имеет значение, была ли нажата клавиша с управляющим символом или с читаемым символом, поэтому имеются несколько различных событий. Событие OnKeyPress происходит лишь при нажатии клавиши, с которой связан читаемый символ, а событие OnKeyDown и OnKeyUp вызываются при нажатии или отпускании произвольной клавиши клавиатуры. Во всех этих событиях присутствует параметр — переменная Key, в которой после события помещается код нажатой клавиши, а также параметр Shift.
Пример 3
Сделать так, чтобы в Edit нельзя было вводить подряд два одинаковых символа.
Поместим на форму компонент Edit и опишем глобальную переменную ch типа char, в которой будет храниться последний нажатый символ.
Затем создаем процедуру обработки события KeyPress, где параметр Key типа char содержит символ нажатой клавиши. Если вновь введенный символ совпадает с только что нажатым символом, то он игнорируется.
В противном случае новый символ запоминается в переменной ch.
Var ch:char;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ch=key then key:=#0
else ch:=key;
end;
Пример 4
Написать программу, которая считает количество нажатий на кнопку и выдает это значение в компоненте Edit.
Для решения данной задачи поместим на форму компоненты Button (кнопка, количество нажатий на которую будем считать) и Edit (строка,
в которой будем выдавать результат). Используя инспектор объектов, свойству Text придадим значение 0. Если в целочисленной переменной i будем считать количество нажатий, то процедура обработки данного события может быть записана в виде:
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
Edit1.Text:=IntToStr(i);
end;
Однако остается вопрос, где описывать данную переменную i. Если сделать это внутри данной процедуры, то также необходимо осуществлять обнуление переменной, а это приведет к получению одного и того результата, равного единице. Следовательно, переменная i должна быть глобальной в модуле, а ее начальная инициализация должна происходить в процедуре, которая выполняется всего один раз, и всего один раз происходит это событие. Таким событием создание формы OnCreat произойдет один раз и процедура FormCreate(Sender:TObject) будет вызвана всего один раз.
Следовательно, описание переменной и процедур обработки событий в реализационной части будет иметь вид:
Var i:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
Edit1.Text:=IntToStr(i);
end;
При возникновении необходимости сделать данную переменную i общедоступной, можно поместить описание переменной в интерфейсной части модуля после служебного слова public. Именно так, как правило,
и поступают. В модуле необходима всего одна переменная — форма, а все остальные описываются в виде полей. В этом случае описание формы будет иметь вид:
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
i:integer;
{ Public declarations }
end;
В программе для обращения к переменной i необходимо писать ее полное имя Form1.i. Однако код процедур обработки событий можно и не переписывать, поскольку процедуры обработки описаны непосредственно в формы, а следовательно, данное числовое поле доступно непосредственно.
Данную программу можно легко модифицировать так, чтобы после определенного количества нажатий появлялось некоторое сообщение или кнопка блокировалась, или приложение автоматически закрывалось. Результат можно отображать не только посредством компонента Edit, но
и через не редактируемый текст, т. е. компонент Label, что в данном случае является более естественным.
Свойству Visible компонента Label присваиваем False, т. е. при открытии формы надпись отражаться не будет. Затем, как и ранее, при нажатии на кнопку переменная i увеличивается на 1. Когда значение переменной i будет равно 10, 20, 30 или 40 компонент Label становится видимым,
в свойстве Caption присваиваем надпись «Вы нажали i раз». При следующем нажатии она невидима. Когда i станет равной 50, кнопку необходимо сделать неактивной, для чего изменим значение свойства Enabled с True — включено на False — выключено. Полный код данной программы может иметь следующий вид:
implementation
{$R *.dfm}
Var i:Integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Visible:=False;
i:=i+1;
if (i=10)or(i=20)or(i=30)or(i=40) then
Begin
Label1.Visible:=True;
Label1.Caption:='Вы нажали '+intToStr(i)+'раз';
end;
if i=50 then
Begin
Label1.Visible:=True;
Label1.Caption:='Вы нажали УЖЕ'+intToStr(i)+'раз';
Button1.Enabled:=False;
end;
end;
В отличие от компонента Edit компонент MaskEdit, обладая теми же возможностями редактирования, позволяет определять маску, на основании которой будет осуществляться ввод информации. Маска редактируется с помощью пункта EditMask инспектора объектов, выбор которого приводит к появлению диалогового окна (рис. 13). Можно выбрать любой имеющийся шаблон ввода текстовой информации или создать собственный. На этапе выполнения вводимый текст должен отвечать этому шаблону.
Рисунок 13
Компонент LabeledEdit отличается от компонента Edit только тем, что имеет привязанный к нему компонент Label, свойства которого содержатся в раскрывающейся вкладке EditLabel. Свойство LabelPosition отвечает за расположение Label относительно Edit, а свойство LabelSpacing — за количество пробелов, разделяющих Edit, и прикрепленный к нему Label. Оба компонента находятся на закладке Addition.
Для ввода целых чисел стандартных компонентов нет, однако имеется возможность самим сконструировать компонент. Для этого необходимо на форму поместить компонент Edit и компонент UpDown со страницы Win32, а затем свойству Associate данного компонента придать значение Edit1. После выполнения этой операции компоненты будут связываться между собой, при выполнении программы — располагаться рядом. Основные свойства компонента UpDown: Min — минимальное и Max — максимальное значения. Если последние свойства имеют значение 0, то число, задаваемое в компоненте, не имеет ограничений. Свойство Increment определяет, на сколько будет изменяться значение при каждом
нажатии на стрелку (данное свойство может принимать только целые значения).
Для ввода или вывода нескольких строк могут использоваться компоненты Memo со страницы Standard и RichEdit со страницы Win32 (полный текстовый редактор для RTF-файлов). Многие свойства у данных компонентов аналогичны свойствам компонента Edit, однако для возможности доступа к строкам вместо свойства Text имеется свойство Lines, при выборе которого во время проектирования задается начальное значение строк с помощью следующего диалогового окна, представленного на рисунке 14. Во время исполнения данное свойство представляет собой указатель на содержимое окна.