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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

56
ɟɦɭ ɭɫɦɨɬɪɟɧɢɸ.
3. ɇɚ ɮɨɪɦɭ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ʋ 4 ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬ
TImage. ȼɵɛɟɪɢɬɟ ɩɨɧɪɚɜɢɜɲɭɸɫɹ ȼɚɦ ɤɚɪɬɢɧɤɭ ɢɡ ɩɨɞɤɚɬɚɥɨɝɚ
Ima
g
es\Splash
5
1. ɇɚ ɝɥɚɜɧɭɸ ɮɨɪɦɭ ɩɪɢɥɨɠɟɧɢɹ ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬ
TImage. ȼɵɛɟɪɢɬɟ ɩɨɧɪɚɜɢɜɲɭɸɫɹ ɜɚɦ ɤɚɪɬɢɧɤɭ ɢɡ ɩɨɞɤɚɬɚɥɨ-
ɝɚ Images\Splash.
2. ɇɚ ɝɥɚɜɧɨɣ ɮɨɪɦɟ ɫɨɡɞɚɬɶ ɝɥɚɜɧɨɟ ɦɟɧɸ.
3. ɋ ɩɨɦɨɳɶɸ ɜɫɩɨɦɨɝɚɬɟɥɶɧɨɝɨ ɦɟɧɸ ɨɫɭɳɟɫɬɜɢɬɶ ɜɨɡɦɨɠ-
ɧɨɫɬɶ ɢɡɦɟɧɟɧɢɹ ɰɜɟɬɚ ɢ ɲɪɢɮɬɚ ɫɨɨɛɳɟɧɢɹ «ɉɪɢɥɨɠɟɧɢɟ ɪɚɡ-
ɪɚɛɨɬɚɧɨ…».
4. Ɉɫɭɳɟɫɬɜɢɬɟ ɡɚɩɢɫɶ ɪɟɡɭɥɶɬɚɬɨɜ ɪɚɫɱɟɬɚ ɜ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚ-
ɛɨɬɟ ʋ 3
ɉɪɨɝɪɚɦɦɭ ɡɚɩɢɲɢɬɟ ɜ ɜɚɲ ɤɚɬɚɥɨɝ Lab_5.
ɑɚɫɬɶ II. ɉɪɨɝɪɚɦɦɵ, ɭɩɪɚɜɥɹɟɦɵɟ ɫɨɛɵɬɢɹɦɢ. ɋɨɛɵɬɢɹ, ɨɛɪɚɛɚɬɵɜɚɟɦɵɟ
ɮɨɪɦɨɣ. ɋɨɛɵɬɢɹ ɨɬ ɤɥɚɜɢɚɬɭɪɵ ɢ ɦɵɲɢ. ɋɨɛɵɬɢɹ ɩɪɨɬɨɤɨɥɚ Drag & Drop
1. Ʉɨɦɩɨɧɟɧɬ TStatusBar. Ɉɛɪɚɛɨɬɱɢɤɢ ɫɨɛɵɬɢɣ, ɫɜɹɡɚɧɧɵɟ ɫ ɤɥɚɜɢɚɬɭɪɨɣ.
Ɉɛɪɚɛɨɬɱɢɤɢ ɫɨɛɵɬɢɣ, ɫɜɹɡɚɧɧɵɟ ɫ ɦɵɲɶɸ. ɂɧɬɟɪɮɟɣɫ Drag & Drop. Ɉɛ-
ɳɟɟ ɫɜɨɣɫɬɜɨ ɜɢɞɢɦɵɯ ɤɨɦɩɨɧɟɧɬɨɜ Hint
Ⱦɥɹ ɛɨɥɶɲɢɧɫɬɜɚ ɜɢɞɢɦɵɯ ɷɥɟɦɟɧɬɨɜ ɨɩɪɟɞɟɥɟɧ ɧɚɛɨɪ ɨɛɪɚɛɨɬɱɢɤɨɜ
ɫɨɛɵɬɢɣ, ɫɜɹɡɚɧɧɵɯ ɫ ɦɵɲɶɸ:
– OnMouseDown: TMouseEvent ɢ OnMouseUp: TMouseEvent ɨɩɪɟ-
ɞɟɥɹɸɬ ɪɟɚɤɰɢɸ ɩɪɨɝɪɚɦɦɵ ɧɚ ɫɨɨɬɜɟɬɫɬɜɟɧɧɨ ɧɚɠɚɬɢɟ ɢ ɨɬɩɭɫɤɚɧɢɟ
ɤɧɨɩɤɢ ɦɵɲɢ;
– OnMouseMove: TMouseMoveEvent – ɧɚ ɩɟɪɟɦɟɳɟɧɢɟ ɭɤɚɡɚɬɟɥɹ
ɦɵɲɢ ɧɚɞ ɤɨɦɩɨɧɟɧɬɨɦ;
– OnClick: TNotifyEvent ɢ OnDblClick:TNotifyEvent – ɫɨɨɬɜɟɬɫɬɜɟɧ-
ɧɨ ɧɚ ɳɟɥɱɨɤ ɢ ɞɜɨɣɧɨɣ ɳɟɥɱɨɤ ɥɟɜɨɣ ɤɧɨɩɤɢ.
ȼɨ ɜɫɟɯ ɨɛɪɚɛɨɬɱɢɤɚɯ ɩɚɪɚɦɟɬɪ Sender ɫɨɞɟɪɠɢɬ ɫɫɵɥɤɭ ɧɚ ɤɨɦɩɨ-
ɧɟɧɬ, ɧɚɞ ɤɨɬɨɪɵɦ ɩɪɨɢɡɨɲɥɨ ɫɨɛɵɬɢɟ, ɚ X ɢ Y ɨɩɪɟɞɟɥɹɸɬ ɤɨɨɪɞɢɧɚɬɵ
ɬɨɱɤɢ ɱɭɜɫɬɜɢɬɟɥɶɧɨɫɬɢ ɭɤɚɡɚɬɟɥɹ ɦɵɲɢ ɜ ɦɨɦɟɧɬ ɜɨɡɧɢɤɧɨɜɟɧɢɹ ɫɨɛɵ-
ɬɢɹ. ɉɚɪɚɦɟɬɪ Button ɨɩɪɟɞɟɥɹɟɬ ɨɞɧɭ ɢɡ ɬɪɟɯ ɤɧɨɩɨɤ ɦɵɲɢ: ɥɟɜɭɸ
(mbLeft), ɩɪɚɜɭɸ (mbRight) ɢ ɫɪɟɞɧɸɸ (mbMiddle). ɉɚɪɚɦɟɬɪ Shift ɫɨ-
ɞɟɪɠɢɬ ɩɪɢɡɧɚɤɢ, ɭɬɨɱɧɹɸɳɢɟ ɨɛɫɬɨɹɬɟɥɶɫɬɜɚ ɜɨɡɧɢɤɧɨɜɟɧɢɹ ɫɨɛɵɬɢɹ
:
ssShift – ɧɚɠɚɬɚ ɤɥɚɜɢɲɚ <Shift>; ssAlt – ɧɚɠɚɬɚ ɤɥɚɜɢɲɚ <Alt>; ssCtrl –
<Ctrl>; ssLeft – ɧɚɠɚɬɚ ɥɟɜɚɹ ɤɧɨɩɤɚ ɦɵɲɢ; ssRight – ɩɪɚɜɚɹ ɤɧɨɩɤɚ ɦɵ-
ɲɢ; ssMiddle – ɫɪɟɞɧɹɹ; ssDouble – ɨɞɧɨɜɪɟɦɟɧɧɨ ɥɟɜɚɹ ɢ ɩɪɚɜɚɹ ɤɧɨɩɤɢ.
ɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ ɜɨɡɧɢɤɧɨɜɟɧɢɹ ɫɨɛɵɬɢɣ: OnMouseDown,
OnClick, OnMouseUp, OnDblClick.
ɋɨɛɵɬɢɹ ɨɬ ɦɵɲɢ ɩɨɥɭɱɚɸɬ ɥɸɛɵɟ ɩɨɬɨɦɤɢ Tɋontrol. ɋɨɛɵɬɢɹ ɨɬ
ɤɥɚɜɢɚɬɭɪɵ ɩɨɥɭɱɚɸɬ ɬɨɥɶɤɨ ɧɟɤɨɬɨɪɵɟ ɨɤɨɧɧɵɟ ɤɨɦɩɨɧɟɧɬɵ:
        ɟɦɭ ɭɫɦɨɬɪɟɧɢɸ.
        3. ɇɚ ɮɨɪɦɭ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɵ ʋ 4 ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬ
        TImage. ȼɵɛɟɪɢɬɟ ɩɨɧɪɚɜɢɜɲɭɸɫɹ ȼɚɦ ɤɚɪɬɢɧɤɭ ɢɡ ɩɨɞɤɚɬɚɥɨɝɚ
        Images\Splash
         1. ɇɚ ɝɥɚɜɧɭɸ ɮɨɪɦɭ ɩɪɢɥɨɠɟɧɢɹ ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬ
         TImage. ȼɵɛɟɪɢɬɟ ɩɨɧɪɚɜɢɜɲɭɸɫɹ ɜɚɦ ɤɚɪɬɢɧɤɭ ɢɡ ɩɨɞɤɚɬɚɥɨ-
         ɝɚ Images\Splash.
         2. ɇɚ ɝɥɚɜɧɨɣ ɮɨɪɦɟ ɫɨɡɞɚɬɶ ɝɥɚɜɧɨɟ ɦɟɧɸ.
   5     3. ɋ ɩɨɦɨɳɶɸ ɜɫɩɨɦɨɝɚɬɟɥɶɧɨɝɨ ɦɟɧɸ ɨɫɭɳɟɫɬɜɢɬɶ ɜɨɡɦɨɠ-
         ɧɨɫɬɶ ɢɡɦɟɧɟɧɢɹ ɰɜɟɬɚ ɢ ɲɪɢɮɬɚ ɫɨɨɛɳɟɧɢɹ «ɉɪɢɥɨɠɟɧɢɟ ɪɚɡ-
         ɪɚɛɨɬɚɧɨ…».
         4. Ɉɫɭɳɟɫɬɜɢɬɟ ɡɚɩɢɫɶ ɪɟɡɭɥɶɬɚɬɨɜ ɪɚɫɱɟɬɚ ɜ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚ-
         ɛɨɬɟ ʋ 3
ɉɪɨɝɪɚɦɦɭ ɡɚɩɢɲɢɬɟ ɜ ɜɚɲ ɤɚɬɚɥɨɝ Lab_5.
ɑɚɫɬɶ II. ɉɪɨɝɪɚɦɦɵ, ɭɩɪɚɜɥɹɟɦɵɟ ɫɨɛɵɬɢɹɦɢ. ɋɨɛɵɬɢɹ, ɨɛɪɚɛɚɬɵɜɚɟɦɵɟ
ɮɨɪɦɨɣ. ɋɨɛɵɬɢɹ ɨɬ ɤɥɚɜɢɚɬɭɪɵ ɢ ɦɵɲɢ. ɋɨɛɵɬɢɹ ɩɪɨɬɨɤɨɥɚ Drag & Drop
1. Ʉɨɦɩɨɧɟɧɬ TStatusBar. Ɉɛɪɚɛɨɬɱɢɤɢ ɫɨɛɵɬɢɣ, ɫɜɹɡɚɧɧɵɟ ɫ ɤɥɚɜɢɚɬɭɪɨɣ.
Ɉɛɪɚɛɨɬɱɢɤɢ ɫɨɛɵɬɢɣ, ɫɜɹɡɚɧɧɵɟ ɫ ɦɵɲɶɸ. ɂɧɬɟɪɮɟɣɫ Drag & Drop. Ɉɛ-
ɳɟɟ ɫɜɨɣɫɬɜɨ ɜɢɞɢɦɵɯ ɤɨɦɩɨɧɟɧɬɨɜ Hint
    Ⱦɥɹ ɛɨɥɶɲɢɧɫɬɜɚ ɜɢɞɢɦɵɯ ɷɥɟɦɟɧɬɨɜ ɨɩɪɟɞɟɥɟɧ ɧɚɛɨɪ ɨɛɪɚɛɨɬɱɢɤɨɜ
ɫɨɛɵɬɢɣ, ɫɜɹɡɚɧɧɵɯ ɫ ɦɵɲɶɸ:
    – OnMouseDown: TMouseEvent ɢ OnMouseUp: TMouseEvent ɨɩɪɟ-
ɞɟɥɹɸɬ ɪɟɚɤɰɢɸ ɩɪɨɝɪɚɦɦɵ ɧɚ ɫɨɨɬɜɟɬɫɬɜɟɧɧɨ ɧɚɠɚɬɢɟ ɢ ɨɬɩɭɫɤɚɧɢɟ
ɤɧɨɩɤɢ ɦɵɲɢ;
    – OnMouseMove: TMouseMoveEvent – ɧɚ ɩɟɪɟɦɟɳɟɧɢɟ ɭɤɚɡɚɬɟɥɹ
ɦɵɲɢ ɧɚɞ ɤɨɦɩɨɧɟɧɬɨɦ;
    – OnClick: TNotifyEvent ɢ OnDblClick:TNotifyEvent – ɫɨɨɬɜɟɬɫɬɜɟɧ-
ɧɨ ɧɚ ɳɟɥɱɨɤ ɢ ɞɜɨɣɧɨɣ ɳɟɥɱɨɤ ɥɟɜɨɣ ɤɧɨɩɤɢ.
    ȼɨ ɜɫɟɯ ɨɛɪɚɛɨɬɱɢɤɚɯ ɩɚɪɚɦɟɬɪ Sender ɫɨɞɟɪɠɢɬ ɫɫɵɥɤɭ ɧɚ ɤɨɦɩɨ-
ɧɟɧɬ, ɧɚɞ ɤɨɬɨɪɵɦ ɩɪɨɢɡɨɲɥɨ ɫɨɛɵɬɢɟ, ɚ X ɢ Y ɨɩɪɟɞɟɥɹɸɬ ɤɨɨɪɞɢɧɚɬɵ
ɬɨɱɤɢ ɱɭɜɫɬɜɢɬɟɥɶɧɨɫɬɢ ɭɤɚɡɚɬɟɥɹ ɦɵɲɢ ɜ ɦɨɦɟɧɬ ɜɨɡɧɢɤɧɨɜɟɧɢɹ ɫɨɛɵ-
ɬɢɹ. ɉɚɪɚɦɟɬɪ Button ɨɩɪɟɞɟɥɹɟɬ ɨɞɧɭ ɢɡ ɬɪɟɯ ɤɧɨɩɨɤ ɦɵɲɢ: ɥɟɜɭɸ
(mbLeft), ɩɪɚɜɭɸ (mbRight) ɢ ɫɪɟɞɧɸɸ (mbMiddle). ɉɚɪɚɦɟɬɪ Shift ɫɨ-
ɞɟɪɠɢɬ ɩɪɢɡɧɚɤɢ, ɭɬɨɱɧɹɸɳɢɟ ɨɛɫɬɨɹɬɟɥɶɫɬɜɚ ɜɨɡɧɢɤɧɨɜɟɧɢɹ ɫɨɛɵɬɢɹ:
ssShift – ɧɚɠɚɬɚ ɤɥɚɜɢɲɚ ; ssAlt – ɧɚɠɚɬɚ ɤɥɚɜɢɲɚ ; ssCtrl –
; ssLeft – ɧɚɠɚɬɚ ɥɟɜɚɹ ɤɧɨɩɤɚ ɦɵɲɢ; ssRight – ɩɪɚɜɚɹ ɤɧɨɩɤɚ ɦɵ-
ɲɢ; ssMiddle – ɫɪɟɞɧɹɹ; ssDouble – ɨɞɧɨɜɪɟɦɟɧɧɨ ɥɟɜɚɹ ɢ ɩɪɚɜɚɹ ɤɧɨɩɤɢ.
      ɉɨɫɥɟɞɨɜɚɬɟɥɶɧɨɫɬɶ ɜɨɡɧɢɤɧɨɜɟɧɢɹ ɫɨɛɵɬɢɣ: OnMouseDown,
OnClick, OnMouseUp, OnDblClick.
    ɋɨɛɵɬɢɹ ɨɬ ɦɵɲɢ ɩɨɥɭɱɚɸɬ ɥɸɛɵɟ ɩɨɬɨɦɤɢ Tɋontrol. ɋɨɛɵɬɢɹ ɨɬ
ɤɥɚɜɢɚɬɭɪɵ ɩɨɥɭɱɚɸɬ ɬɨɥɶɤɨ ɧɟɤɨɬɨɪɵɟ ɨɤɨɧɧɵɟ ɤɨɦɩɨɧɟɧɬɵ:
                                  56

Страницы