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

UptoLike

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

Рубрика:

ɇɚ ɪɢɫ. 5 ɩɪɟɞɫɬɚɜɥɟɧ ɢɧɬɟɪɮɟɣɫ ɤɨɦɩɨɧɟɧɬɚ Gr ɜɪɟɦɟɧɢ ɩɪɨɟɤɬɢɪɨ-

ɜɚɧɢɹ.

Ɋɢɫ. 5. Ɍɟɫɬɢɪɨɜɚɧɢɟ ɤɨɦɩɨɧɟɧɬɚ Gr

4.2. Ʉɨɦɩɨɧɟɧɬ ɞɥɹ ɨɬɨɛɪɚɠɟɧɢɹ ɬɟɤɭɳɟɝɨ ɜɪɟɦɟɧɢ

Ɍɟɤɭɳɟɟ ɜɪɟɦɹ ɨɬɨɛɪɚɠɚɟɬɫɹ ɧɚ ɤɨɦɩɨɧɟɧɬɟ-ɩɨɬɨɦɤɟ TCustomLa-

bel ɩɨ ɫɨɛɵɬɢɸ OnTimer ɤɨɦɩɨɧɟɧɬɚ TTimer.

ȼɵɛɟɪɢɬɟ ɩɭɧɤɬ ɦɟɧɸ Component | New Component ɢ ɜ ɨɬɤɪɵɜɲɟɦɫɹ

ɞɢɚɥɨɝɨɜɨɦ ɨɤɧɟ ɡɚɞɚɣɬɟ ɢɦɹ ɤɨɦɩɨɧɟɧɬɚ Class Name (TTimeLabel), ɢɦɹ

ɤɨɦɩɨɧɟɧɬɚ-ɩɪɟɞɤɚ Ancestor Type (TCustomlabel), ɧɚɡɜɚɧɢɟ ɩɚɥɢɬɪɵ

(Samples) ɢ ɢɦɹ ɦɨɞɭɥɹ, ɫɨɞɟɪɠɚɳɟɝɨ ɤɨɦɩɨɧɟɧɬ (ɧɚɩɪɢɦɟɪ,

F:\IRA\TimeLabel.pas).

Ȼɭɞɟɬ ɚɜɬɨɦɚɬɢɱɟɫɤɢ ɫɨɡɞɚɧɚ ɡɚɝɨɬɨɜɤɚ ɦɨɞɭɥɹ, ɤɨɬɨɪɭɸ ɧɟɨɛɯɨɞɢɦɨ

ɨɬɪɟɞɚɤɬɢɪɨɜɚɬɶ ɫɥɟɞɭɸɳɢɦ ɨɛɪɚɡɨɦ: