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

UptoLike

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

Рубрика:

// ɡɚɜɟɪɲɚɸɳɢɟ ɨɩɟɪɚɰɢɢ,

// ɨɫɜɨɛɨɠɞɟɧɢɟ ɩɚɦɹɬɢ,

// ɜɵɡɨɜ ɞɟɫɬɪɭɤɬɨɪɨɜ ɨɛɴɟɤɬɨɜ, ɫɨɡɞɚɧɧɵɯ

// ɜ ɫɨɫɬɚɜɟ ɤɨɦɩɨɧɟɧɬɚ ɢ ɬ.ɩ.

…

// ɩɨɫɥɟɞɧɢɦ ɜɵɡɵɜɚɟɬɫɹ ɭɧɚɫɥɟɞɨɜɚɧɧɵɣ ɞɟɫɬɪɭɤɬɨɪ

inherited Destroy;

end;

ɇɚ ɩɪɚɤɬɢɤɟ ɜɦɟɫɬɨ Destroy ɨɛɵɱɧɨ ɜɵɡɵɜɚɸɬ ɦɟɬɨɞ Free, ɭɧɚɫ-

ɥɟɞɨɜɚɧɧɵɣ ɨɬ TObject. Ɇɟɬɨɞ Free ɛɟɡɨɩɚɫɧɟɟ, ɬɚɤ ɤɚɤ ɩɟɪɟɞ ɜɵɡɨɜɨɦ

ɞɟɫɬɪɭɤɬɨɪɚ ɨɧ ɩɪɨɜɟɪɹɟɬ ɧɚɥɢɱɢɟ ɤɨɦɩɨɧɟɧɬɚ ɜ ɩɚɦɹɬɢ:

if Self<>nil then Destroy;

2.5. ɋɨɛɵɬɢɹ

ɋɨɛɵɬɢɟ ɤɨɦɩɨɧɟɧɬɚ – ɷɬɨ ɟɝɨ ɫɜɨɣɫɬɜɨ ɩɪɨɰɟɞɭɪɧɨɝɨ ɬɢɩɚ, ɩɪɟɞɧɚ-

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

ɞɟɣɫɬɜɢɹ (ɫɨ ɫɬɨɪɨɧɵ ɩɨɥɶɡɨɜɚɬɟɥɹ, ɚɩɩɚɪɚɬɭɪɵ ɢɥɢ ɞɪɭɝɢɯ ɩɪɨɝɪɚɦɦ).

Ɍɚɤɨɦɭ ɫɜɨɣɫɬɜɭ ɧɟɨɛɯɨɞɢɦɨ ɩɪɢɫɜɨɢɬɶ ɚɞɪɟɫ ɦɟɬɨɞɚ, ɤɨɬɨɪɵɣ ɛɭɞɟɬ ɜɵ-

ɡɵɜɚɬɶɫɹ ɜ ɦɨɦɟɧɬ ɧɚɫɬɭɩɥɟɧɢɹ ɫɨɛɵɬɢɹ ɫ ɞɚɧɧɵɦ ɤɨɦɩɨɧɟɧɬɨɦ.

ɋɨɛɵɬɢɹ ɢɦɟɸɬ ɪɚɡɥɢɱɧɨɟ ɱɢɫɥɨ ɩɚɪɚɦɟɬɪɨɜ. ȼ ɩɪɨɫɬɟɣɲɟɦ ɫɥɭɱɚɟ

ɩɚɪɚɦɟɬɪ ɨɞɢɧ – Sender ɬɢɩɚ TObject, ɭɤɚɡɵɜɚɸɳɢɣ ɧɚ ɨɛɴɟɤɬ-

ɢɫɬɨɱɧɢɤ ɫɨɛɵɬɢɹ. ɋɨɨɬɜɟɬɫɬɜɭɸɳɢɟ ɫɨɛɵɬɢɹ, ɧɚɩɪɢɦɟɪ ɫɨɛɵɬɢɹ On-

Click ɢ OnDblClick, ɢɦɟɸɬ ɬɢɩ

type TNotifyEvent = procedure (Sender: TObject) of object;

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

ɡɚɪɟɡɟɪɜɢɪɨɜɚɧɧɵɟ ɫɥɨɜɚ of object. Ɉɛɵɱɧɵɣ ɩɪɨɰɟɞɭɪɧɵɣ ɬɢɩ ɢ ɩɪɨ-

ɰɟɞɭɪɧɵɣ ɬɢɩ ɞɥɹ ɦɟɬɨɞɚ ɧɟɫɨɜɦɟɫɬɢɦɵ, ɬɚɤ ɤɚɤ ɜ ɦɟɬɨɞ, ɤɪɨɦɟ ɨɩɢɫɚɧ-

ɧɵɯ ɩɚɪɚɦɟɬɪɨɜ, ɧɟɹɜɧɨ ɩɟɪɟɞɚɟɬɫɹ ɩɚɪɚɦɟɬɪ Self – ɭɤɚɡɚɬɟɥɶ ɧɚ ɜɵɡɜɚɜ-