Обработка событий, связанных с формой.

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

– события мыши;

– события клавиатуры;

– системные события.

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

Пример. При нажатии левой кнопки мыши форма перекрашивается в красный цвет.

Решение.

Выбрать в инспекторе объектов вкладку Events, осуществить двойной щелчок в строке события OnClick.

В открывшемся окне редактирования модуля создать обработчик событий:

 

Form1.Color:=clRed;

 

Пример. При каждом щелчке левой кнопкой мыши произвольным образом меняется цвет формы.

Решение.

Для получения различных цветов формы можно воспользоваться функцией RGB. Функция принимает три параметра – уровни интенсивности красного, зеленого и синего цветов и возвращает цвет как целое значение. Для каждого уровня интенсивности существует 256 возможных значений.

Обработчик события OnClick записывается следующим образом:

 

Form1.Color:= RGB(Random(256), Random(256),

Random(256));

 

Пример. При двойном щелчке левой кнопкой мыши изменяется вид курсора.

Решение.

Каждое значение свойства Cursor имеет свой числовой эквивалент в пределах от –21 (crHandPoint) до 0 (crDefault). При каждом двойном щелчке левой кнопкой мыши значение свойства Cursor будет увеличиваться на единицу, при достижении значения 0 свойство получит значение –21.

Обработчик события OnDblClick записывается следующим образом:

 

if Form1.Cursor = 0 then

Form1.Cursor:= -21

Else

Form1.Cursor:=Cursor+1;

 

Пример. В форме в заголовке отобразить координаты перемещения указателя мыши.

Решение.

Для этого надо обработать событие, возникающее при перемещении мыши, OnMouseMove:

 

procedure TForm1.FormMouseMove (Sender: TObject;

Shift: TShiftState; X, Y: Integer);

 

Sender – определяет, над каким объектом находится указатель мыши;

X, Y – позиция курсора мыши,

Shift – показывает состояние клавиш Alt, Ctrl, Shift.

Процедура обработки события OnMouseMove может принять вид:

 

procedure TForm1.FormMouseMove (Sender: TObject;

Shift:TShiftState; X,Y: Integer);

Begin

Form1.Caption:= ’Координаты указателя мыши ’+

IntToStr(X) +’ и ‘+IntToStr(Y);

end;

 

Здесь IntToStr(X) означает преобразование целого числа в строку.

 

Простейшие компоненты Delphi

 

Компонент TLabel – метка.

Компоненты класса TLabel используются для отображения на форме различного вида надписей. Данный компонент находится на вкладке Standard и выбирается щелчком мыши по кнопке .

Можно настроить следующие свойства компонента TLabel.

Свойство Caption задает текст надписи.

property Caption: TCaption;

Свойство Font изменяет размер и цвет шрифта.

property Font: TFont;

Свойство AutoSize – разрешает (true) / запрещает (false) автоматическую коррекцию размера надписи по размеру текста надписи.

property AutoSize: Boolean;

Свойство Alignment указывает вид выравнивания надписи внутри компонента.

property Alignment: TAlignment;

Может принимать следующие значения:

taCenter – по центру;

taLeftJustify – по левому краю;

taRightJustify – по правому краю.

Свойство WordWrap разрешает (true) / запрещает (false) автоматический перенос слов надписи на другую строку, если весь текст не помещается в отведенный размер.

property WordWrap: Boolean;

Свойство Transparent устанавливает фон надписи прозрачным (true) или непрозрачным (false).

property Transparent: Boolean;

 

На рис. 11 приведены примеры компонентов класса TLabel с различными настроенными свойствами.

 

 

Рис. 11. Примеры компонентов класса TLabel