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

       – ɡɧɚɬɶ ɨɛɪɚɛɨɬɱɢɤɢ ɫɨɛɵɬɢɣ: OnMouseDown; OnMouseUp;
OnMouseMove; OnClick; OnDblClick; OnKeyDown; OnKeyUp;
OnKeyPress; OnDragOver; OnDragDrop.
       – ɢɡɭɱɢɬɶ ɫɜɨɣɫɬɜɚ DragMode ɢ DragCursor.
ɂɫɩɨɥɶɡɭɟɦɚɹ ɩɚɩɤɚ: Lab5.
                                 ɉɥɚɧ ɡɚɧɹɬɢɹ
ɑɚɫɬɶ I. Ƚɥɚɜɧɨɟ ɦɟɧɸ ɮɨɪɦɵ. ȼɫɩɨɦɨɝɚɬɟɥɶɧɵɟ ɦɟɧɸ. ɋɬɚɧɞɚɪɬɧɵɟ ɞɢɚ-
ɥɨɝɢ.
     1. Ƚɥɚɜɧɨɟ ɦɟɧɸ ɮɨɪɦɵ. ȼɫɩɨɦɨɝɚɬɟɥɶɧɵɟ ɦɟɧɸ. ɋɬɚɧɞɚɪɬɧɵɟ ɞɢɚɥɨ-
ɝɢ: ɪɚɛɨɬɚ ɩɨɞ ɪɭɤɨɜɨɞɫɬɜɨɦ ɩɪɟɩɨɞɚɜɚɬɟɥɹ                  20 ɦɢɧɭɬ.
     2. ɋɚɦɨɫɬɨɹɬɟɥɶɧɚɹ ɪɚɛɨɬɚ                             60 ɦɢɧɭɬ.
ɑɚɫɬɶ II. ɉɪɨɝɪɚɦɦɵ, ɭɩɪɚɜɥɹɟɦɵɟ ɫɨɛɵɬɢɹɦɢ. ɋɨɛɵɬɢɹ, ɨɛɪɚɛɚɬɵɜɚɟɦɵɟ
ɮɨɪɦɨɣ. ɋɨɛɵɬɢɹ ɨɬ ɤɥɚɜɢɚɬɭɪɵ ɢ ɦɵɲɢ. ɋɨɛɵɬɢɹ ɩɪɨɬɨɤɨɥɚ
Drag & Drop.
     1. Ʉɨɦɩɨɧɟɧɬ TStatusBar, ɫɜɹɡɚɧɧɵɟ ɫ ɤɥɚɜɢɚɬɭɪɨɣ. Ɉɛɪɚɛɨɬɱɢɤɢ ɫɨɛɵ-
ɬɢɣ, ɫɜɹɡɚɧɧɵɟ ɫ ɦɵɲɶɸ. ɂɧɬɟɪɮɟɣɫ Drag & Drop. Ɉɛɳɟɟ ɫɜɨɣɫɬɜɨ ɜɢɞɢɦɵɯ
ɤɨɦɩɨɧɟɧɬɨɜ Hint: ɪɚɛɨɬɚ ɩɨɞ ɪɭɤɨɜɨɞɫɬɜɨɦ ɩɪɟɩɨɞɚɜɚɬɟɥɹ    40 ɦɢɧɭɬ
     2. ɋɚɦɨɫɬɨɹɬɟɥɶɧɚɹ ɪɚɛɨɬɚ                             40 ɦɢɧɭɬ.
ɑɚɫɬɶ I. Ƚɥɚɜɧɨɟ ɦɟɧɸ ɮɨɪɦɵ. ȼɫɩɨɦɨɝɚɬɟɥɶɧɵɟ ɦɟɧɸ. ɋɬɚɧɞɚɪɬɧɵɟ ɞɢɚ-
ɥɨɝɢ
1. Ƚɥɚɜɧɨɟ ɦɟɧɸ ɮɨɪɦɵ. ȼɫɩɨɦɨɝɚɬɟɥɶɧɵɟ ɦɟɧɸ. ɋɬɚɧɞɚɪɬɧɵɟ ɞɢɚɥɨɝɢ
      Ʌɸɛɨɟ ɫɨɜɪɟɦɟɧɧɨɟ ɩɪɢɥɨɠɟɧɢɟ ɢɦɟɟɬ ɦɟɧɸ. Ɇɟɧɸ ɨɛɟɫɩɟɱɢɜɚɟɬ
ɫɬɚɧɞɚɪɬɧɵɣ ɢ ɭɞɨɛɧɵɣ ɞɨɫɬɭɩ ɤ ɮɭɧɤɰɢɹɦ ɩɪɢɥɨɠɟɧɢɹ ɢ ɫɬɪɭɤɬɭɪɢɪɭɟɬ
ɢɯ ɜ ɨɞɧɨɪɨɞɧɵɟ ɝɪɭɩɩɵ. Ƚɥɚɜɧɨɟ ɦɟɧɸ ɮɨɪɦɵ ɨɩɪɟɞɟɥɹɟɬ ɤɨɦɩɨɧɟɧɬ
ɤɥɚɫɫɚ TɆainMenu. ɇɚ ɮɨɪɦɭ ɦɨɠɧɨ ɩɨɦɟɫɬɢɬɶ ɫɤɨɥɶɤɨ ɭɝɨɞɧɨ ɨɛɴɟɤɬɨɜ
ɷɬɨɝɨ ɤɥɚɫɫɚ, ɧɨ ɨɬɨɛɪɚɠɚɬɶɫɹ ɜ ɩɨɥɨɫɟ ɦɟɧɸ ɜ ɜɟɪɯɧɟɣ ɱɚɫɬɢ ɮɨɪɦɵ ɛɭɞɟɬ
ɬɨɥɶɤɨ ɬɨɬ ɢɡ ɧɢɯ, ɤɨɬɨɪɵɣ ɭɤɚɡɚɧ ɜ ɫɜɨɣɫɬɜɟ Menu ɮɨɪɦɵ. Ⱦɥɹ ɤɨɦɩɨɧɟɧ-
ɬɚ TɆainMenu ɜɵɡɵɜɚɟɬɫɹ Menu Designer, ɳɟɥɱɤɨɦ ɩɨ ɤɧɨɩɤɟ ɜ ɩɪɚɜɨɣ
ɩɨɥɨɜɢɧɟ ɫɬɪɨɤɢ Items ɂɧɫɩɟɤɬɨɪɚ ɨɛɴɟɤɬɨɜ. Ɍɟɤɫɬ ɨɩɰɢɢ ɜɜɨɞɢɬɫɹ ɜ
ɫɬɪɨɤɟ Caption ɨɤɧɚ ɂɧɫɩɟɤɬɨɪɚ ɨɛɴɟɤɬɨɜ. Ɉɩɰɢɢ ɦɟɧɸ ɦɨɠɧɨ ɪɚɡɞɟɥɢɬɶ
ɱɟɪɬɨɣ, ɟɫɥɢ ɨɱɟɪɟɞɧɨɣ ɷɥɟɦɟɧɬ ɦɟɧɸ ɧɚɡɜɚɬɶ ɢɦɟɧɟɦ «–».
      ȼɫɩɨɦɨɝɚɬɟɥɶɧɨɟ ɦɟɧɸ ɫɨɡɞɚɟɬɫɹ ɫ ɩɨɦɨɳɶɸ ɤɨɦɩɨɧɟɧɬɚ
TPopupMenu. ɇɚɡɜɚɧɢɹ ɨɩɰɢɣ ɜɫɩɨɦɨɝɚɬɟɥɶɧɨɝɨ ɦɟɧɸ ɨɩɪɟɞɟɥɹɸɬɫɹ ɫ
ɩɨɦɨɳɶɸ Menu Designer, ɤɨɬɨɪɵɣ ɜɵɡɵɜɚɟɬɫɹ ɞɜɨɣɧɵɦ ɳɟɥɱɤɨɦ ɦɵɲɢ
ɩɨ ɤɨɦɩɨɧɟɧɬɭ TPopupMenu, ɭɫɬɚɧɨɜɥɟɧɧɨɦɭ ɧɚ ɮɨɪɦɟ. ɑɬɨɛɵ ɫɜɹɡɚɬɶ
ɳɟɥɱɨɤ ɩɪɚɜɨɣ ɤɧɨɩɤɨɣ ɦɵɲɢ ɧɚ ɤɚɤɨɦ-ɥɢɛɨ ɤɨɦɩɨɧɟɧɬɟ ɫ ɪɚɫɤɪɵɬɢɟɦ
ɜɫɩɨɦɨɝɚɬɟɥɶɧɨɝɨ ɦɟɧɸ, ɜ ɫɜɨɣɫɬɜɨ PopupMenu ɤɨɦɩɨɧɟɧɬɚ ɧɟɨɛɯɨɞɢɦɨ
ɩɨɦɟɫɬɢɬɶ ɢɦɹ ɤɨɦɩɨɧɟɧɬɚ-ɦɟɧɸ. Ɇɨɠɧɨ ɜɵɛɪɚɬɶ ɢɦɹ ɜɫɩɨɦɨɝɚɬɟɥɶɧɨɝɨ
ɦɟɧɸ ɢɡ ɫɩɢɫɤɚ ɫɜɨɣɫɬɜɚ PopupMenu.
      ȼɵɩɨɥɧɟɧɢɟ ɰɟɥɨɣ ɝɪɭɩɩɵ ɨɩɟɪɚɰɢɣ, ɧɚɢɛɨɥɟɟ ɱɚɫɬɨ ɢɫɩɨɥɶɡɭɟɦɵɯ
ɩɪɢɥɨɠɟɧɢɹɦɢ, ɨɛɟɫɩɟɱɢɜɚɟɬɫɹ ɫɬɚɧɞɚɪɬɧɵɦɢ ɞɢɚɥɨɝɚɦɢ. Ʉ ɧɢɦ ɨɬɧɨɫɹɬɫɹ
ɞɢɚɥɨɝɢ ɨɬɤɪɵɬɢɹ ɢ ɫɨɯɪɚɧɟɧɢɹ ɮɚɣɥɨɜ, ɩɟɱɚɬɢ ɞɨɤɭɦɟɧɬɨɜ, ɭɫɬɚɧɨɜɤɢ ɩɚ-
                                  47