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

UptoLike

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

Рубрика:

ȼɫɟ ɨɫɬɚɥɶɧɵɟ ɲɚɝɢ ɫɜɹɡɚɧɵ ɫ ɨɛɪɚɛɨɬɱɢɤɨɦ ɫɨɛɵɬɢɹ ɮɨɪɦɵ

OnCreate. ɇɚɢɛɨɥɟɟ ɤɨɪɨɬɤɢɣ ɩɭɬɶ ɞɥɹ ɫɨɡɞɚɧɢɹ ɨɛɪɚɛɨɬɱɢɤɚ ɫɨɛɵɬɢɹ

OnCreate ɡɚɤɥɸɱɚɟɬɫɹ ɜ ɞɜɨɣɧɨɦ ɳɟɥɱɤɟ ɧɚ ɧɟɡɚɧɹɬɨɦ ɦɟɫɬɟ ɮɨɪɦɵ. ɗɬɨ

ɫɨɡɞɚɫɬ ɦɟɬɨɞ FormCreate, ɜ ɤɨɬɨɪɨɦ ɛɭɞɟɬ ɫɨɡɞɚɧ ɤɨɦɩɨɧɟɧɬ BtnTest.

ɉɟɪɜɚɹ ɡɚɞɚɱɚ, ɤɨɬɨɪɚɹ ɞɨɥɠɧɚ ɜɵɩɨɥɧɹɬɶɫɹ ɜ ɦɟɬɨɞɟ FormCreate,

ɫɨɫɬɨɢɬ ɜ ɪɟɚɥɢɡɚɰɢɢ ɷɤɡɟɦɩɥɹɪɚ ɧɨɜɨɝɨ ɤɨɦɩɨɧɟɧɬɚ ɩɭɬɟɦ ɨɛɪɚɳɟɧɢɹ ɤ

ɤɨɧɫɬɪɭɤɬɨɪɭ ɤɨɦɩɨɧɟɧɬɚ. ȿɞɢɧɫɬɜɟɧɧɨɟ ɪɟɲɟɧɢɟ, ɤɨɬɨɪɨɟ ɧɟɨɛɯɨɞɢɦɨ

ɩɪɢɧɹɬɶ ɧɚ ɷɬɨɦ ɷɬɚɩɟ, ɡɚɤɥɸɱɚɟɬɫɹ ɜ ɨɩɪɟɞɟɥɟɧɢɢ ɬɨɝɨ, ɱɬɨ ɡɚɞɚɬɶ ɜ ɤɚɱɟ-

ɫɬɜɟ ɜɥɚɞɟɥɶɰɚ ɤɨɦɩɨɧɟɧɬɚ. ȼ ɛɨɥɶɲɢɧɫɬɜɟ ɫɢɬɭɚɰɢɣ ɜɥɚɞɟɥɶɰɟɦ ɛɭɞɟɬ

ɮɨɪɦɚ. ȼ ɦɟɬɨɞɟ FormCreate ɤɨɧɫɬɪɭɤɬɨɪɭ TMyButton ɩɟɪɟɞɚɟɬɫɹ ɩɚ-

ɪɚɦɟɬɪ Self, ɭɤɚɡɵɜɚɸɳɢɣ ɧɚ ɬɨ, ɱɬɨ ɷɬɚ ɮɨɪɦɚ ɛɭɞɟɬ ɫɥɭɠɢɬɶ ɜɥɚɞɟɥɶ-

ɰɟɦ ɧɨɜɨɝɨ ɤɨɦɩɨɧɟɧɬɚ.

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

ɫɚɦɵɯ ɜɚɠɧɵɯ ɡɚɞɚɱ – ɭɫɬɚɧɨɜɢɬɶ ɫɜɨɣɫɬɜɨ Parent, ɭɤɚɡɵɜɚɸɳɟɟ ɧɚ ɪɨ-

ɞɢɬɟɥɶɫɤɢɣ ɤɨɦɩɨɧɟɧɬ. Ɋɨɞɢɬɟɥɶɫɤɢɣ ɤɨɦɩɨɧɟɧɬ (ɧɟ ɫɥɟɞɭɟɬ ɩɭɬɚɬɶ ɟɝɨ ɫ

ɤɨɦɩɨɧɟɧɬɨɦ-ɩɪɟɞɤɨɦ, ɨɬ ɤɨɬɨɪɨɝɨ ɢɞɟɬ ɧɚɫɥɟɞɨɜɚɧɢɟ) ɹɜɥɹɟɬɫɹ ɤɨɧɬɟɣɧɟ-

ɪɨɦ ɞɪɭɝɢɯ ɤɨɦɩɨɧɟɧɬɨɜ, ɬ. ɟ. ɫɨɞɟɪɠɢɬ ɢɯ ɜɢɡɭɚɥɶɧɨ. ɍɫɬɚɧɨɜɤɚ ɫɜɨɣɫɬɜɚ

Parent ɩɨɦɟɫɬɢɬ ɬɟɤɭɳɢɣ ɤɨɦɩɨɧɟɧɬ ɜ ɫɩɢɫɨɤ Controls ɪɨɞɢɬɟɥɹ.

ɋɩɢɫɨɤ Controls ɢɫɩɨɥɶɡɭɟɬɫɹ ɞɥɹ ɭɫɬɚɧɨɜɥɟɧɢɹ ɩɨɪɹɞɤɚ ɨɛɯɨɞɚ ɷɥɟ-

ɦɟɧɬɨɜ ɭɩɪɚɜɥɟɧɢɹ (tab order) ɢ Z-ɭɩɨɪɹɞɨɱɢɜɚɧɢɹ ɫɪɟɞɢ ɩɪɢɧɚɞɥɟɠɚɳɢɯ

ɤɨɦɩɨɧɟɧɬɭ ɷɥɟɦɟɧɬɨɜ ɭɩɪɚɜɥɟɧɢɹ. Ⱦɪɭɝɨɟ ɜɚɠɧɨɟ ɩɪɢɦɟɧɟɧɢɟ ɫɩɢɫɤɚ

Controls ɩɪɨɢɫɯɨɞɢɬ ɜɨ ɜɪɟɦɹ ɪɢɫɨɜɚɧɢɹ. Ɋɨɞɢɬɟɥɶɫɤɢɣ ɤɨɦɩɨɧɟɧɬ

(

Parent) ɢɫɩɨɥɶɡɭɟɬ ɫɩɢɫɨɤ Controls ɞɥɹ ɜɵɞɚɱɢ ɤɨɦɚɧɞɵ ɧɚɪɢɫɨɜɚɬɶ

ɫɟɛɹ ɜɫɟɦ ɞɨɱɟɪɧɢɦ ɤɨɦɩɨɧɟɧɬɚɦ. ɋɥɟɞɨɜɚɬɟɥɶɧɨ, ɟɫɥɢ ɷɥɟɦɟɧɬɚ ɭɩɪɚɜɥɟ-

ɧɢɹ ɜ ɪɨɞɢɬɟɥɶɫɤɨɦ ɫɩɢɫɤɟ Controls ɧɟɬ, ɬɨ ɨɧ ɢ ɧɟ ɩɨɹɜɢɬɫɹ ɩɪɢ ɜɵ-

ɩɨɥɧɟɧɢɢ ɩɪɢɥɨɠɟɧɢɹ.

Ɍɨɥɶɤɨ ɩɨɬɨɦɤɢ TWinControl ɦɨɝɭɬ ɛɵɬɶ ɪɨɞɢɬɟɥɶɫɤɢɦɢ. ɉɪɢɦɟɪɚɦɢ

ɤɨɦɩɨɧɟɧɬɨɜ ɹɜɥɹɸɬɫɹ Panel ɢ GroupBox. Ʉɥɚɫɫ TForm ɬɚɤɠɟ ɹɜɥɹɟɬɫɹ