Введение в технологию программирования. Ч.1. Среда объектно-ориентированного программирования Delphi. Коржов Е.Н - 17 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

13. ɍɫɬɚɧɨɜɢɬɟ ɧɚ ɷɬɭ ɠɟ ɩɚɧɟɥɶ ɤɧɨɩɤɭ Button1. Ɂɚɞɚɣɬɟ ɫɜɨɣɫɬɜɭ
Caption ɡɧɚɱɟɧɢɟ «ȼɜɨɞ». ɓɟɥɱɤɨɦ ɩɨ ɩɪɚɜɨɣ ɱɚɫɬɢ ɫɬɪɨɤɢ ɫɜɨɣɫɬɜɚ Font
ɪɚɫɤɪɨɣɬɟ ɞɢɚɥɨɝɨɜɨɟ ɨɤɧɨ ɧɚɫɬɪɨɣɤɢ ɲɪɢɮɬɚ ɢ ɢɡɦɟɧɢɬɟ ɜɵɫɨɬɭ ɲɪɢɮ-
ɬɚ.
14. Ɍɟɩɟɪɶ ɭɫɬɚɧɨɜɢɬɟ ɧɚ ɩɚɧɟɥɶ Panel1 ɤɧɨɩɤɭ BitBtn1, ɤɨɬɨɪɚɹ ɧɚ-
ɯɨɞɢɬɫɹ ɧɚ ɩɚɧɟɥɢ Additional. ɂɡɦɟɧɢɬɟ ɫɜɨɣɫɬɜɨ Kind ɧɚ bkClose. Ⱦɥɹ
ɤɨɦɩɨɧɟɧɬɨɜ ɌBitBtn ɫɜɨɣɫɬɜɨ Kind (ɫɨɪɬ) ɨɩɪɟɞɟɥɹɟɬ ɬɢɩɨɜɵɟ ɮɭɧɤɰɢɢ,
ɤɨɬɨɪɵɟ ɪɟɚɥɢɡɭɟɬ ɤɧɨɩɤɚ ɜ ɞɢɚɥɨɝɨɜɵɯ ɨɤɧɚɯ. Ɂɧɚɱɟɧɢɟ bkClose ɨɩɪɟɞɟ-
ɥɢɬ ɬɢɩɨɜɭɸ ɮɭɧɤɰɢɸ ɡɚɤɪɵɬɢɹ ɨɤɧɚ, ɤɨɬɨɪɚɹ ɛɭɞɟɬ ɫɜɹɡɚɧɚ ɫ ɷɬɨɣ ɤɧɨɩ-
ɤɨɣ. ɍɜɟɥɢɱɶɬɟ ɪɚɡɦɟɪɵ ɤɧɨɩɤɢ.
15. ȼɚɲɚ ɩɪɨɟɤɬɢɪɭɟɦɚɹ ɮɨɪɦɚ ɞɨɥɠɧɚ ɩɪɢɧɹɬɶ ɜɢɞ, ɩɪɟɞɫɬɚɜɥɟɧɧɵɣ
ɧɚ ɪɢɫ. 3.1.1.
Ɋɢɫ. 3.1.1. ȼɢɞ ɮɨɪɦɵ ɩɪɨɟɤɬɢɪɭɟɦɨɣ ɩɪɨɝɪɚɦɦɵ
16. ȼɵɞɟɥɢɬɟ ɤɧɨɩɤɭ Button1. ȼ ɢɧɫɩɟɤɬɨɪɟ ɨɛɴɟɤɬɨɜ ɨɬɪɚɡɹɬɫɹ
ɫɜɨɣɫɬɜɚ ɷɬɨɣ ɤɧɨɩɤɢ. ɓɟɥɤɧɢɬɟ ɩɨ ɡɚɤɥɚɞɤɟ Events. ɇɚ ɷɬɨɣ ɡɚɤɥɚɞɤɟ ɩɟ-
ɪɟɱɢɫɥɟɧɵ ɫɨɛɵɬɢɹ, ɧɚ ɤɨɬɨɪɵɟ ɨɬɤɥɢɤɚɟɬɫɹ ɤɧɨɩɤɚ. Ⱦɜɚɠɞɵ ɳɟɥɤɧɢɬɟ ɩɨ
ɩɪɚɜɨɣ ɱɚɫɬɢ ɫɬɪɨɤɢ ɫɨɛɵɬɢɹ OnClick (ɩɨ ɳɟɥɱɤɭ). ȼ ɨɬɜɟɬ Delphi ɚɤɬɢɜɢ-
ɡɢɪɭɟɬ ɨɤɧɨ ɩɪɨɝɪɚɦɦɵ. ɋɨɛɵɬɢɟ OnClick ɜɨɡɧɢɤɚɟɬ ɜ ɪɚɛɨɬɚɸɳɟɣ ɩɪɨ-
ɝɪɚɦɦɟ ɩɪɢ ɳɟɥɱɤɟ ɩɨ ɤɧɨɩɤɟ ɥɟɜɨɣ ɤɥɚɜɢɲɟɣ ɦɵɲɢ.
1.5. Ɂɧɚɤɨɦɫɬɜɨ ɫ ɨɤɧɨɦ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ
1. Ɉɤɧɨ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɩɪɟɞɧɚɡɧɚɱɟɧɨ ɞɥɹ ɫɨɡɞɚɧɢɹ ɢ ɪɟɞɚɤɬɢɪɨɜɚ-
ɧɢɹ ɬɟɤɫɬɚ ɩɪɨɝɪɚɦɦɵ. ɗɬɨɬ ɬɟɤɫɬ ɝɨɬɨɜɢɬɫɹ ɫ ɭɱɟɬɨɦ ɫɩɟɰɢɚɥɶɧɵɯ ɩɪɚɜɢɥ
ɢ ɨɩɢɫɵɜɚɟɬ ɚɥɝɨɪɢɬɦ ɪɚɛɨɬɵ ɩɪɨɝɪɚɦɦɵ. ɉɟɪɜɨɧɚɱɚɥɶɧɨ ɨɤɧɨ ɤɨɞɚ ɫɨ-
ɞɟɪɠɢɬ ɦɢɧɢɦɚɥɶɧɵɣ ɢɫɯɨɞɧɵɣ ɬɟɤɫɬ, ɨɛɟɫɩɟɱɢɜɚɸɳɢɣ ɧɨɪɦɚɥɶɧɨɟ
ɮɭɧɤɰɢɨɧɢɪɨɜɚɧɢɟ ɩɭɫɬɨɣ ɮɨɪɦɵ ɜ ɤɚɱɟɫɬɜɟ ɩɨɥɧɨɰɟɧɧɨɝɨ Windows-
ɨɤɧɚ. ȼ ɯɨɞɟ ɪɚɛɨɬɵ ɧɚɞ ɩɪɨɟɤɬɨɦ ɩɪɨɝɪɚɦɦɢɫɬ ɜɧɨɫɢɬ ɧɟɨɛɯɨɞɢɦɵɟ ɞɨ-
ɩɨɥɧɟɧɢɹ, ɱɬɨɛɵ ɩɪɢɞɚɬɶ ɩɪɨɝɪɚɦɦɟ ɧɭɠɧɭɸ ɮɭɧɤɰɢɨɧɚɥɶɧɨɫɬɶ. ɂɫɩɨɥɶ-
ɡɭɹ ɥɢɧɟɣɤɢ ɩɪɨɤɪɭɬɤɢ, ɩɪɨɫɦɨɬɪɢɬɟ ɫɨɞɟɪɠɢɦɨɟ ɨɤɧɚ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ.
2. ȼɦɟɫɬɟ ɫ ɨɤɧɨɦ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɨɛɵɱɧɨ ɚɤɬɢɜɢɡɢɪɭɟɬɫɹ ɬɚɤɠɟ ɢ
ɨɤɧɨ ɧɚɜɢɝɚɬɨɪɚ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ, ɨɛɥɟɝɱɚɸɳɟɟ ɩɨɢɫɤ ɧɭɠɧɵɯ ɷɥɟɦɟɧɬɨɜ ɜ
ɫɥɭɱɚɟ, ɤɨɝɞɚ ɜ ɨɤɧɟ ɧɚɛɪɚɧɨ ɦɧɨɝɨ ɫɬɪɨɤ ɬɟɤɫɬɚ. ɉɪɢ ɪɚɡɪɚɛɨɬɤɟ ɧɟɫɥɨɠ-
ɧɵɯ ɭɱɟɛɧɵɯ ɩɪɨɝɪɚɦɦ ɦɨɠɧɨ ɡɚɤɪɵɬɶ ɷɬɨ ɨɤɧɨ ɤɧɨɩɤɨɣ ɫ ɤɪɟɫɬɢɤɨɦ ɜ ɟɝɨ
17
    13. ɍɫɬɚɧɨɜɢɬɟ ɧɚ ɷɬɭ ɠɟ ɩɚɧɟɥɶ ɤɧɨɩɤɭ Button1. Ɂɚɞɚɣɬɟ ɫɜɨɣɫɬɜɭ
Caption ɡɧɚɱɟɧɢɟ «ȼɜɨɞ». ɓɟɥɱɤɨɦ ɩɨ ɩɪɚɜɨɣ ɱɚɫɬɢ ɫɬɪɨɤɢ ɫɜɨɣɫɬɜɚ Font
ɪɚɫɤɪɨɣɬɟ ɞɢɚɥɨɝɨɜɨɟ ɨɤɧɨ ɧɚɫɬɪɨɣɤɢ ɲɪɢɮɬɚ ɢ ɢɡɦɟɧɢɬɟ ɜɵɫɨɬɭ ɲɪɢɮ-
ɬɚ.
     14. Ɍɟɩɟɪɶ ɭɫɬɚɧɨɜɢɬɟ ɧɚ ɩɚɧɟɥɶ Panel1 ɤɧɨɩɤɭ BitBtn1, ɤɨɬɨɪɚɹ ɧɚ-
ɯɨɞɢɬɫɹ ɧɚ ɩɚɧɟɥɢ Additional. ɂɡɦɟɧɢɬɟ ɫɜɨɣɫɬɜɨ Kind ɧɚ bkClose. Ⱦɥɹ
ɤɨɦɩɨɧɟɧɬɨɜ ɌBitBtn ɫɜɨɣɫɬɜɨ Kind (ɫɨɪɬ) ɨɩɪɟɞɟɥɹɟɬ ɬɢɩɨɜɵɟ ɮɭɧɤɰɢɢ,
ɤɨɬɨɪɵɟ ɪɟɚɥɢɡɭɟɬ ɤɧɨɩɤɚ ɜ ɞɢɚɥɨɝɨɜɵɯ ɨɤɧɚɯ. Ɂɧɚɱɟɧɢɟ bkClose ɨɩɪɟɞɟ-
ɥɢɬ ɬɢɩɨɜɭɸ ɮɭɧɤɰɢɸ ɡɚɤɪɵɬɢɹ ɨɤɧɚ, ɤɨɬɨɪɚɹ ɛɭɞɟɬ ɫɜɹɡɚɧɚ ɫ ɷɬɨɣ ɤɧɨɩ-
ɤɨɣ. ɍɜɟɥɢɱɶɬɟ ɪɚɡɦɟɪɵ ɤɧɨɩɤɢ.
    15. ȼɚɲɚ ɩɪɨɟɤɬɢɪɭɟɦɚɹ ɮɨɪɦɚ ɞɨɥɠɧɚ ɩɪɢɧɹɬɶ ɜɢɞ, ɩɪɟɞɫɬɚɜɥɟɧɧɵɣ
ɧɚ ɪɢɫ. 3.1.1.




           Ɋɢɫ. 3.1.1. ȼɢɞ ɮɨɪɦɵ ɩɪɨɟɤɬɢɪɭɟɦɨɣ ɩɪɨɝɪɚɦɦɵ
    16. ȼɵɞɟɥɢɬɟ ɤɧɨɩɤɭ Button1. ȼ ɢɧɫɩɟɤɬɨɪɟ ɨɛɴɟɤɬɨɜ ɨɬɪɚɡɹɬɫɹ
ɫɜɨɣɫɬɜɚ ɷɬɨɣ ɤɧɨɩɤɢ. ɓɟɥɤɧɢɬɟ ɩɨ ɡɚɤɥɚɞɤɟ Events. ɇɚ ɷɬɨɣ ɡɚɤɥɚɞɤɟ ɩɟ-
ɪɟɱɢɫɥɟɧɵ ɫɨɛɵɬɢɹ, ɧɚ ɤɨɬɨɪɵɟ ɨɬɤɥɢɤɚɟɬɫɹ ɤɧɨɩɤɚ. Ⱦɜɚɠɞɵ ɳɟɥɤɧɢɬɟ ɩɨ
ɩɪɚɜɨɣ ɱɚɫɬɢ ɫɬɪɨɤɢ ɫɨɛɵɬɢɹ OnClick (ɩɨ ɳɟɥɱɤɭ). ȼ ɨɬɜɟɬ Delphi ɚɤɬɢɜɢ-
ɡɢɪɭɟɬ ɨɤɧɨ ɩɪɨɝɪɚɦɦɵ. ɋɨɛɵɬɢɟ OnClick ɜɨɡɧɢɤɚɟɬ ɜ ɪɚɛɨɬɚɸɳɟɣ ɩɪɨ-
ɝɪɚɦɦɟ ɩɪɢ ɳɟɥɱɤɟ ɩɨ ɤɧɨɩɤɟ ɥɟɜɨɣ ɤɥɚɜɢɲɟɣ ɦɵɲɢ.
    1.5. Ɂɧɚɤɨɦɫɬɜɨ ɫ ɨɤɧɨɦ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ
     1. Ɉɤɧɨ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɩɪɟɞɧɚɡɧɚɱɟɧɨ ɞɥɹ ɫɨɡɞɚɧɢɹ ɢ ɪɟɞɚɤɬɢɪɨɜɚ-
ɧɢɹ ɬɟɤɫɬɚ ɩɪɨɝɪɚɦɦɵ. ɗɬɨɬ ɬɟɤɫɬ ɝɨɬɨɜɢɬɫɹ ɫ ɭɱɟɬɨɦ ɫɩɟɰɢɚɥɶɧɵɯ ɩɪɚɜɢɥ
ɢ ɨɩɢɫɵɜɚɟɬ ɚɥɝɨɪɢɬɦ ɪɚɛɨɬɵ ɩɪɨɝɪɚɦɦɵ. ɉɟɪɜɨɧɚɱɚɥɶɧɨ ɨɤɧɨ ɤɨɞɚ ɫɨ-
ɞɟɪɠɢɬ ɦɢɧɢɦɚɥɶɧɵɣ ɢɫɯɨɞɧɵɣ ɬɟɤɫɬ, ɨɛɟɫɩɟɱɢɜɚɸɳɢɣ ɧɨɪɦɚɥɶɧɨɟ
ɮɭɧɤɰɢɨɧɢɪɨɜɚɧɢɟ ɩɭɫɬɨɣ ɮɨɪɦɵ ɜ ɤɚɱɟɫɬɜɟ ɩɨɥɧɨɰɟɧɧɨɝɨ Windows-
ɨɤɧɚ. ȼ ɯɨɞɟ ɪɚɛɨɬɵ ɧɚɞ ɩɪɨɟɤɬɨɦ ɩɪɨɝɪɚɦɦɢɫɬ ɜɧɨɫɢɬ ɧɟɨɛɯɨɞɢɦɵɟ ɞɨ-
ɩɨɥɧɟɧɢɹ, ɱɬɨɛɵ ɩɪɢɞɚɬɶ ɩɪɨɝɪɚɦɦɟ ɧɭɠɧɭɸ ɮɭɧɤɰɢɨɧɚɥɶɧɨɫɬɶ. ɂɫɩɨɥɶ-
ɡɭɹ ɥɢɧɟɣɤɢ ɩɪɨɤɪɭɬɤɢ, ɩɪɨɫɦɨɬɪɢɬɟ ɫɨɞɟɪɠɢɦɨɟ ɨɤɧɚ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ.
    2. ȼɦɟɫɬɟ ɫ ɨɤɧɨɦ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ ɨɛɵɱɧɨ ɚɤɬɢɜɢɡɢɪɭɟɬɫɹ ɬɚɤɠɟ ɢ
ɨɤɧɨ ɧɚɜɢɝɚɬɨɪɚ ɤɨɞɚ ɩɪɨɝɪɚɦɦɵ, ɨɛɥɟɝɱɚɸɳɟɟ ɩɨɢɫɤ ɧɭɠɧɵɯ ɷɥɟɦɟɧɬɨɜ ɜ
ɫɥɭɱɚɟ, ɤɨɝɞɚ ɜ ɨɤɧɟ ɧɚɛɪɚɧɨ ɦɧɨɝɨ ɫɬɪɨɤ ɬɟɤɫɬɚ. ɉɪɢ ɪɚɡɪɚɛɨɬɤɟ ɧɟɫɥɨɠ-
ɧɵɯ ɭɱɟɛɧɵɯ ɩɪɨɝɪɚɦɦ ɦɨɠɧɨ ɡɚɤɪɵɬɶ ɷɬɨ ɨɤɧɨ ɤɧɨɩɤɨɣ ɫ ɤɪɟɫɬɢɤɨɦ ɜ ɟɝɨ

                                  17

Страницы