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

UptoLike

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

Рубрика:

type

TKeyPressEvent = procedure(Sender: TObject;

var Key: Char) of object;

Ɂɚɦɟɬɢɦ, ɱɬɨ ɫɨɨɛɳɟɧɢɹ ɨɬ ɤɥɚɜɢɚɬɭɪɵ ɩɨɫɬɭɩɚɸɬ ɬɨɦɭ ɷɥɟɦɟɧɬɭ,

ɤɨɬɨɪɵɣ ɜ ɞɚɧɧɵɣ ɦɨɦɟɧɬ ɢɦɟɥ ɮɨɤɭɫ ɜɜɨɞɚ. ȿɫɥɢ ɭ ɮɨɪɦɵ, ɜɥɚɞɟɸɳɟɣ

ɷɥɟɦɟɧɬɨɦ ɭɩɪɚɜɥɟɧɢɹ, ɭɫɬɚɧɨɜɢɬɶ ɡɧɚɱɟɧɢɟ ɫɜɨɣɫɬɜɚ KeyPreview ɜ

True, ɬɨ ɫɨɛɵɬɢɹ ɛɭɞɭɬ ɫɧɚɱɚɥɚ ɨɛɪɚɛɨɬɚɧɵ ɮɨɪɦɨɣ.

ɉɟɪɟɱɟɧɶ ɬɢɩɨɜ ɫɬɚɧɞɚɪɬɧɵɯ ɫɨɛɵɬɢɣ ɫɦ. ɜ ɮɚɣɥɟ controls.pas ɜ

ɤɚɬɚɥɨɝɟ ..\Delphi7\Source\VCL.

ɋɨɜɦɟɫɬɢɦɵɟ ɫɨɛɵɬɢɹ ɦɨɠɧɨ ɩɪɢɫɜɚɢɜɚɬɶ ɜɨ ɜɪɟɦɹ ɜɵɩɨɥɧɟɧɢɹ ɩɪɨ-

ɝɪɚɦɦɵ, ɧɚɩɪɢɦɟɪ,

Button1.OnMouseMove:=Button2.OnMouseMove;

…

Button1.OnClick:=Form1.OnPaint;

…

Edit1.OnChange:=Button1Click;

ȼ ɪɟɡɭɥɶɬɚɬɟ ɨɞɢɧ ɨɛɴɟɤɬ ɛɭɞɟɬ ɢɫɩɨɥɶɡɨɜɚɬɶ ɨɛɪɚɛɨɬɱɢɤɢ ɫɨɜɦɟɫ-

ɬɢɦɨɝɨ ɫɨɛɵɬɢɹ ɞɪɭɝɨɝɨ ɨɛɴɟɤɬɚ. ɗɬɚ ɜɨɡɦɨɠɧɨɫɬɶ ɧɚɡɵɜɚɟɬɫɹ

ɞɟɥɟɝɢ

ɪɨɜɚɧɢɟɦ.

ɂɬɚɤ, ɫɨɛɵɬɢɹ ɪɟɚɥɢɡɭɸɬɫɹ ɫ ɩɨɦɨɳɶɸ ɭɤɚɡɚɬɟɥɟɣ ɧɚ ɦɟɬɨɞɵ. Ⱦɥɹ

ɤɚɠɞɨɝɨ ɫɨɛɵɬɢɹ ɨɩɪɟɞɟɥɹɸɬɫɹ ɫɜɨɣɫɬɜɚ. ɗɬɨ ɩɨɡɜɨɥɹɟɬ ɢɫɩɨɥɶɡɨɜɚɬɶ ɂɧ-

ɫɩɟɤɬɨɪ ɨɛɴɟɤɬɨɜ ɞɥɹ ɧɚɡɧɚɱɟɧɢɹ ɫɨɛɵɬɢɹɦ ɨɛɪɚɛɨɬɱɢɤɨɜ ɜɨ ɜɪɟɦɹ ɩɪɨɟɤ-

ɬɢɪɨɜɚɧɢɹ. ɉɨɹɫɧɢɦ ɫɤɚɡɚɧɧɨɟ ɧɚ ɩɪɢɦɟɪɟ.

Ɋɚɫɫɦɨɬɪɢɦ ɫɥɟɞɭɸɳɢɣ ɮɪɚɝɦɟɧɬ ɤɨɞɚ, ɩɨɤɚɡɵɜɚɸɳɢɣ ɧɟɫɤɨɥɶɤɨ

ɫɬɚɧɞɚɪɬɧɵɯ ɫɨɛɵɬɢɣ, ɨɛɴɹɜɥɟɧɧɵɯ ɜ ɤɥɚɫɫɟ

TControl:

type

TControl = class(TComponent)

private

FOnClick : TNotifyEvent;

FOnDblClick : TNotifyEvent