Слайд 2
![Визуальный компонент - объект, большинство свойство которого доступны и видимы еще на этапе разработки.](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-1.jpg)
Визуальный компонент - объект, большинство свойство которого доступны и видимы еще
на этапе разработки.
Слайд 3
![Во всех системах визуального программирования принята концепция двойного инструментария (Two](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-2.jpg)
Во всех системах визуального программирования принята концепция двойного инструментария (Two Way
Tools), которая позволяет менять свойства компонентов:
в процессе визуального конструирования с помощью мыши и клавиш (Design Time);
в процессе работы приложения с помощью операторов языка программирования (Run Time).
Слайд 4
![VCL - Visual Component Library (визуальна библиотека компонентов)](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-3.jpg)
VCL - Visual Component Library (визуальна библиотека компонентов)
Слайд 5
![TObject - объекты. В Object Pascal все классы являются потомками](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-4.jpg)
TObject - объекты. В Object Pascal все классы являются потомками этого
класса.
TComponent - компоненты. Все элементы VCL являются потомками этого класса.
TControl - элементы управления. Одинаково выглядят в Design Time и Run Time.
Слайд 6
![TWinControl - оконные элементы управления. Могут получать фокус ввода. TGraphicControl](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-5.jpg)
TWinControl - оконные элементы управления. Могут получать фокус ввода.
TGraphicControl -
графические элементы управления. Не имеют фокуса и уникального дескриптора, не получают сообщений.
Слайд 7
![Свойства (Properties) хранят данные определенного типа](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-6.jpg)
Свойства (Properties) хранят данные определенного типа
Слайд 8
![Свойства класса TComponent Name: string; имя компонента Tag: integer; может использоваться программистом по своему усмотрению](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-7.jpg)
Свойства класса TComponent
Name: string; имя компонента
Tag: integer; может использоваться программистом
по своему усмотрению
Слайд 9
![Свойства класса TControl Caption,Text: string; - надпись на компоненте Left,Top:integer;](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-8.jpg)
Свойства класса TControl
Caption,Text: string; - надпись на компоненте
Left,Top:integer; координаты
верхнего левого угла компонента
Height,Width:integer; высота и ширина компонента
ClientHeight,ClientWidth: integer; высота и ширина части компонента, доступной для пользователя
Слайд 10
![Свойства класса TControl Visible: boolean; видимость компонента Enabled: boolean; доступность](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-9.jpg)
Свойства класса TControl
Visible: boolean; видимость компонента
Enabled: boolean; доступность компонента
AutoSize:
boolean; компонент принимает размер в зависимости от его содержимого.
Color: TColor=integer; цвет компонента ($000000 - $FFFFFF (BGR) clBlack,clRed,…)
Слайд 11
![Свойства класса TControl Align: TAlign = (alNone, alTop, alBottom, alLeft,](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-10.jpg)
Свойства класса TControl
Align: TAlign = (alNone, alTop, alBottom, alLeft, alRight,
alClient); выравнивание компонента
Alignment: TAlignment = (taLeftJustify, taRightJustify, taCenter); выравнивание содержимого компонента
Слайд 12
![Свойства класса TControl Hint: string; всплывающая подсказка ShowHint: boolean; показать подсказку Cursor: TCursor=integer; -crDefault,crHourGlass,crHandPoint,…: курсор](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-11.jpg)
Свойства класса TControl
Hint: string; всплывающая подсказка
ShowHint: boolean; показать подсказку
Cursor: TCursor=integer;
-crDefault,crHourGlass,crHandPoint,…: курсор
Слайд 13
![Свойства класса TControl Font: TFont шрифт Font.Color: integer цвет шрифта](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-12.jpg)
Свойства класса TControl
Font: TFont шрифт
Font.Color: integer цвет шрифта
Font.Size: integer
размер шрифта в пунктах
Font.Name: string название шрифта
Font.Style: TFontStyles = set of TFontStyle, где TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut); стиль шрифта (жирный, курсив, подчеркнутый, зачеркнутый)
Слайд 14
![Методы (Methods) - процедуры и функции, связанные с компонентами.](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-13.jpg)
Методы (Methods) - процедуры и функции, связанные с компонентами.
Слайд 15
![Методы класса TControl Hide; скрыть компонент Show; показать компонент](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-14.jpg)
Методы класса TControl
Hide; скрыть компонент
Show; показать компонент
Слайд 16
![Метод класса TWinControl SetFocus; получить фокус ввода](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-15.jpg)
Метод класса TWinControl
SetFocus; получить фокус ввода
Слайд 17
![Методы класса TForm Close; закрыть форму](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-16.jpg)
Методы класса TForm
Close; закрыть форму
Слайд 18
![Методы класса TEdit Clear; очистить](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-17.jpg)
Методы класса TEdit
Clear; очистить
Слайд 19
![С каждым компонентом связан определенный список событий (Events), на которые](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-18.jpg)
С каждым компонентом связан определенный список событий (Events), на которые он
способен реагировать.
Для каждого события, связанного с компонентом, можно написать специальную процедуру - обработчик события (Events Handler).
Обработчик каждого события относится к определенному классу, который определяется набором передаваемых в обработчик параметров.
Слайд 20
![События класса TControl OnClick: TNotifyEvent (Sender:Object) щелчок мыши OnDblClick: TNotifyEvent (Sender:Object) двойной щелчок мыши](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-19.jpg)
События класса TControl
OnClick: TNotifyEvent (Sender:Object) щелчок мыши
OnDblClick: TNotifyEvent (Sender:Object) двойной
щелчок мыши
Слайд 21
![Оператор приведения типа (Sender as Класс).Свойство; или Класс(Sender).Свойство;](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-20.jpg)
Оператор приведения типа
(Sender as Класс).Свойство;
или
Класс(Sender).Свойство;
Слайд 22
![События класса TControl OnMouseMove: TMouseEvent(Sender: TObject; Button: TMouseButton; Shift: TShiftState;](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-21.jpg)
События класса TControl
OnMouseMove: TMouseEvent(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
Y: Integer) перемещение мыши
OnMouseDown: TMouseEvent нажата кнопка мыши
OnMouseUp: TMouseEvent отпущена кнопка мыши
Слайд 23
![События класса TControl Параметры событий: Button: TMouseButton = (mbLeft, mbRight,](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-22.jpg)
События класса TControl
Параметры событий:
Button: TMouseButton = (mbLeft, mbRight, mbMiddle)
– нажатая кнопка мыши;
Shift: TShiftState = set of (ssShift, ssAlt, ssControl, ssLeft, ssRight, ssMiddle, ssDouble) – управляющие клавиши;
X,Y: integer; - координаты мыши на компоненте.
Слайд 24
![События класса TWinControl OnEnter: TNotifyEvent; получить фокус ввода OnExit: TNotifyEvent; потерять фокус ввода](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-23.jpg)
События класса TWinControl
OnEnter: TNotifyEvent; получить фокус ввода
OnExit: TNotifyEvent; потерять фокус
ввода
Слайд 25
![События класса TWinControl OnKeyPress: TKeyPressEvent( Sender: TObject; var Key: Char);](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-24.jpg)
События класса TWinControl
OnKeyPress: TKeyPressEvent(
Sender: TObject;
var Key:
Char); нажата клавиша
OnKeyDown: TKeyEvent(
Sender: TObject; var Key: Word;
Shift: TShiftState); прижата клавиша
OnKeyUp: TKeyEvent(Sender: TObject; var Key: Word; Shift: TShiftState); отпущена клавиша
Слайд 26
![Событие для TEdit OnChange; изменение содержимого](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/57717/slide-25.jpg)
Событие для TEdit
OnChange; изменение содержимого