Разработка компонентов в DELPHI. Вощинская Г.Э. - 19 стр.

UptoLike

Составители:

Рубрика:

ɲɢɣ ɟɝɨ ɨɛɴɟɤɬ. ɉɨɷɬɨɦɭ ɫɨɛɵɬɢɸ ɦɨɠɧɨ ɩɪɢɫɜɚɢɜɚɬɶ ɬɨɥɶɤɨ ɦɟɬɨɞɵ

ɤɥɚɫɫɚ, ɫɨɜɦɟɫɬɢɦɵɟ ɩɨ ɱɢɫɥɭ ɢ ɬɢɩɭ ɩɚɪɚɦɟɬɪɨɜ.

Ɍɢɩ TNotifyEvent ɢɦɟɟɬ, ɜ ɱɚɫɬɧɨɫɬɢ, ɫɨɛɵɬɢɟ ɳɟɥɱɤɚ ɦɵɲɶɸ ɧɚ

ɤɨɦɩɨɧɟɧɬɟ.

ȼ ɞɪɭɝɢɯ ɫɨɛɵɬɢɹɯ ɦɨɝɭɬ ɩɪɢɫɭɬɫɬɜɨɜɚɬɶ ɞɨɩɨɥɧɢɬɟɥɶɧɵɟ ɩɚɪɚɦɟɬ-

ɪɵ, ɧɚɩɪɢɦɟɪ, ɞɥɹ ɫɨɛɵɬɢɹ ɩɟɪɟɦɟɳɟɧɢɹ ɭɤɚɡɚɬɟɥɹ ɦɵɲɢ OnMouseMove

ɨɩɢɫɚɧɢɟ ɬɢɩɚ ɫɨɛɵɬɢɹ ɢɦɟɟɬ ɜɢɞ

type TMouseMoveEvent = procedure(Sender: TObject; Shift:

TShiftState; X, Y: Integer) of object;

ɝɞɟ ɩɚɪɚɦɟɬɪ Shift ɩɨɡɜɨɥɹɟɬ ɭɡɧɚɬɶ, ɛɵɥɢ ɥɢ ɧɚɠɚɬɵ ɩɪɢ ɩɟɪɟɦɟ-

ɳɟɧɢɢ ɭɤɚɡɚɬɟɥɹ ɭɩɪɚɜɥɹɸɳɢɟ ɤɥɚɜɢɲɢ ɢɥɢ ɤɧɨɩɤɢ ɦɵɲɢ; ɩɚɪɚɦɟɬɪɵ X ɢ

Y ɫɨɞɟɪɠɚɬ ɧɨɜɵɟ ɤɨɨɪɞɢɧɚɬɵ ɭɤɚɡɚɬɟɥɹ ɦɵɲɢ ɜ ɤɥɢɟɧɬɫɤɨɣ ɨɛɥɚɫɬɢ ɨɛɴ-

ɟɤɬɚ Sender.

ɋɨɛɵɬɢɹ ɧɚɠɚɬɢɹ/ɨɬɩɭɫɤɚɧɢɹ ɤɧɨɩɤɢ ɦɵɲɢ OnMouse-

Down/OnMouseUp ɢɦɟɸɬ ɬɢɩ

type

TMouseEvent = procedure(Sender: TObject;

Button: TMouseButton; Shift: TShiftState;

X, Y: Integer) of object;

ɝɞɟ Button: TMouseButton – ɢɞɟɧɬɢɮɢɤɚɬɨɪ ɤɧɨɩɤɢ,

TMouseButton = (mbLeft, mbRight, mbMiddle).

ɇɚɠɚɬɢɟ ɢ ɨɬɩɭɫɤɚɧɢɟ ɤɥɚɜɢɲ ɤɥɚɜɢɚɬɭɪɵ OnKeyDown:

type TKeyEvent = procedure(Sender: TObject;

var Key: Word; Shift: TShiftState) of object;

ɝɞɟ Key – ɜɢɪɬɭɚɥɶɧɵɣ ɤɨɞ Windows ɧɚɠɚɬɨɣ ɤɥɚɜɢɲɢ.

Cɨɛɵɬɢɟ OnKeyPressed ɜɨɡɧɢɤɚɟɬ ɩɪɢ ɜɜɨɞɟ ɫ ɤɥɚɜɢɚɬɭɪɵ ɫɢɦɜɨ-

ɥɚ ASCII. Ɂɞɟɫɶ Key – ASCII-ɤɨɞ ɧɚɠɚɬɨɣ ɤɥɚɜɢɲɢ ɢ ɢɦɟɟɬ ɬɢɩ