Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Об’єктно-орієнтоване програмування(ООП).doc
Скачиваний:
5
Добавлен:
18.09.2019
Размер:
128 Кб
Скачать

8.Основні методи класу tControl.

TControl основне призначення цього класу забезпечити функціонування візуальних компонентів.

Класс TControl является базовым абстрактным классом для всех визуальных компонентов Delphi, то есть для компонентов, которые пользователь может видеть и которыми манипулирует во время выполнения приложения. Все они имеют общие свойства, методы и события, определяющие место их размещения, расцветку, реакцию на нажатие клавиш или кнопок мыши и т.д.

    Защищенные свойства и методы класса TControl используются в их потомках. Если требуется создать новый класс визуального компонента, его надо создавать как производный от TControl или от его потомков.

Методы класса tControl

Таблица 2. Методы класса TControl

Метод

Описание

procedure BeginDrag(Immediate: Boolean; Threshold: Integer = -1);

Начинает процесс перетаскивания компонента.

procedure BringToFront;

Переносит компонент выше других компонентов на той же форме.

Changed;

Используется, чтобы послать сообщение CM_CHANGED родительскому компоненту, если в свойствах данного компонента сделаны какие-то изменения, на которые должен прореагировать родительский компонент.

procedure ChangeScale(M, D: Integer); dynamic;

Изменяет масштаб компонента.

procedure Click; dynamic;

Вызывает обработчик события OnClick при щелчке мыши. Используется при проектировании новых классов.

function ClientToScreen(const Point: TPoint): TPoint;

Преобразует координаты клиентской области в координаты экрана.

constructor Create(AOwner: TComponent); override;

Конструктор переопределен для задания начальных значений свойств компонента.

procedure DblClick; dynamic;

Вызывает обработчик события OnDblClick при двойном щелчке мыши. Используется при проектировании новых классов.

procedure DoEndDrag(Target:TObject; X, Y: Integer); dynamic;

Вызывает обработчик события OnEndDrag. Используется при проектировании новых классов.

procedure DoStartDrag(var DragObject: TDragObject); dynamic;

Вызывает обработчик события OnStartDrag. Используется при проектировании новых классов.

procedure DragCanceled; dynamic;

Прерывает перетаскивание. Используется при проектировании новых классов.

procedure DragDrop(Source: TObject; X, Y: Integer);

Вызывает обработчик события OnDragDrop. Используется при проектировании новых классов.

procedure EndDrag(Drop: Boolean);

Завершает (успешно или неуспешно) перетаскивание. Используется при проектировании новых классов.

GetTextBuf;

Записывает в заданный буфер фиксированного размера значение свойства Text. Используется, если нужна обратная совместимость с 16-битными кодами.

GetTextLen;

Возвращает длину строки свойства Text, необходимую для задания размера буфера в методе GetTextBuf.

procedure Hide;

Делает компонент невидимым.

procedure Invalidate; virtual;

Вызывает полную перерисовку испорченного изображения компонента.

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); dynamic;

Вызывает обработчик события OnMouseDown. Используется при проектировании новых классов.

procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); dynamic;

Вызывает обработчик события OnMouseUp. Используется при проектировании новых классов.

procedure Refresh;

Немедленно перерисовывает компонент на экране, вызывая метод Repaint.

procedure Repaint;

Немедленно перерисовывает компонент на экране, вызывая, при необходимости, метод Invalidate.

function ScreenToClient(const Point: TPoint): TPoint;

Преобразует координаты экрана в координаты клиентской области компонента.

SendCancelMode;

Прерывает модальное состояние элемента.

procedure SendToBack;

Переносит компонент ниже других компонентов в той же форме.

procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); virtual;

Задает сразу четыре свойства: Left, Top, Width и Height.

SetTextBuf;

Записывает в заданный буфер значение свойства Text. Используется, если нужна обратная совместимость с 16-битными кодами.

procedure Show;

Делает видимым невидимый компонент.

procedure UpdateBoundsRect(const R: TRect);

Изменяет, как и SetBounds, полное описание BoundsRect, но не перерисовывает изображение компонента на экране.

9.Методи і властивості, які керують списком дочірніх елементів керування.

  1. Property controls[index:Integer]:TControl –містить список дочірніх елементів

  2. Property ControlCount:Integer – містить число елем.списку

  3. Function ContainControl(Control:TControl):Boolean- перевіряє наявність елементів в списку

  4. Function ControlatPos(const Pos:TPoint;alowDisable:Boolean).TControl-шукає у списку елемент, якому належить задана точка (в сист координат власної клієнтової прапорець alowDisable показує обасть) чи дозволений пошук серед пасивних елементів Enable=False

  5. Procedure Insert Control(AControl:TControl)- додає елемент в кінець списку

  6. Procedure RemoveControl(Acontrol:TControl) – видаляє елемент зі списку

  7. Procedure Broadcast (var Message) – розсилає всім дочірнім елементам повідомлення

Для передачі фокуса між елементами керування на одній формі використовується Tab(Табуляція). Порядок переміщення фокуса між елементами задаються властивістю Type TTabOrder=-1..32767

Property TabOrder:TTabOrder

10.Властивості і методи класу TMenuItem.

В основі класа Menu лежить властивість, яка представляє собою колекцію елементів меню. Кожен елемент представляє собою окрему команду меню. Property Items: TMenuItem. Клас TMenuItem описує елементи меню його властивості і методи.

  1. property Action:TBasicActions

  2. property Bitmap: TBitmap

  3. type TMenuBreak=(mb none, mb Break, mb Barbreak)/

  4. property Break:TMenuBreak