Класс TShape является непосредственным потомком класса
TGraphicControl и наследует все его характеристики. Экземпляром
этого класса является компонент Shape, с помощью которого можно
выводить на экран статические изображения.
Компонент Shape (вкладка Additional) предназначен для ото-
бражения одной из простейших геометрических фигур: прямоугольни-
ка, квадрата, скругленного прямоугольника, скругленного квадрата,
эллипса, окружности (рис. 1.4).
Любая из перечисленных геометрических
фигур выводится в прямоугольник,
задаваемый свойствами Left, Top (координаты
левого верхнего угла прямоугольника) и
Width, Height (размеры прямоугольника).
Фигура полностью занимает все
пространство компонента. Если задан
квадрат или круг, а размеры элемента по
горизонтали и вертикали отличаются, фигура
чертится с размером меньшего измерения.
Рис. 1.4. Вид фигуры, определяемый свойством Share
Таблица 1.6. Свойства компоненты Shape
Компонент Shape обрабатывает события от мыши (кроме двойного
клика).
Пример. Создадим простую форму и разместим на ней окруж-
ность. Создадим обработчик, который позволит при нажатии клавиш
вверх, вниз, вправо, влево (расположенных также на дополнительной
клавиатуре) перемещать окружность по форме в соответствующем
направлении:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
37, 100: Shape1.Left:=Shape1.Left-2; //клавиша влево
38, 104: Shape1.Top:=Shape1.Top-2; //клавиша вверх
39, 102: Shape1.Left:=Shape1.Left+2; //клавиша вправо
40, 98: Shape1.Top:=Shape1.Top+2; //клавиша вниз
end;
end;
|
Главная
Каталог файлов
