Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
лаба2.docx
Скачиваний:
0
Добавлен:
01.04.2025
Размер:
1.62 Mб
Скачать

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

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

   

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

Метод

Описание

procedureBeginDrag(Immediate: Boolean; Threshold: Integer = -1);

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

procedure BringToFront;

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

Changed;

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

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

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

procedure Click; dynamic;

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

function ClientToScreen(constPoint: TPoint): TPoint;

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

constructor Create(AOwner: TComponent); override;

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

procedure DblClick; dynamic;

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

procedureDoEndDrag(Target:TObject; X, Y: Integer); dynamic;

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

procedure DoStartDrag(varDragObject: 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 Invalidatevirtual;

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

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(constPoint: TPoint): TPoint;

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

SendCancelMode;

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

procedure SendToBack;

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

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

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

SetTextBuf;

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

procedure Show;

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

procedureUpdateBoundsRect(const R: TRect);

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

    К оглавлению