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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

2. ɋɨɡɞɚɣɬɟ ɨɛɪɚɛɨɬɱɢɤ ɫɨɛɵɬɢɹ OnClick ɞɥɹ ɤɨɦɩɨɧɟɧɬɚ
ɆonthCalendar1.
procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
Edit2.Text := DateToStr(MonthCalendar1.Date);
end;
Ɋɢɫ. 3.5.3. Ɍɪɟɬɶɹ ɫɬɪɚɧɢɰɚ PageControl1
2. ɋɚɦɨɫɬɨɹɬɟɥɶɧɚɹ ɪɚɛɨɬɚ
Ɂɚɞɚɧɢɟ. ɋɨɡɞɚɬɶ ɩɪɨɝɪɚɦɦɭ ɫ ɮɭɧɤɰɢɨɧɚɥɶɧɵɦɢ ɜɨɡɦɨɠɧɨɫɬɹɦɢ ɫɨɝɥɚɫ-
ɧɨ ɩɨɥɭɱɟɧɧɨɦɭ ɜɚɪɢɚɧɬɭ.
ȼɚɪɢɚɧɬɵ ɂɫɯɨɞɧɵɟ ɞɚɧɧɵɟ
1
1. ɇɚ ɝɥɚɜɧɭɸ ɮɨɪɦɭ ɩɨɦɟɫɬɢɬɟ ɫɜɨɣ ɪɢɫɭɧɨɤ, ɫɞɟɥɚɧɧɵɣ
ɫ ɩɨɦɨɳɶɸ ɤɨɦɩɨɧɟɧɬɚ TɊaintBox.
2. ɇɚ ɫɬɚɧɞɚɪɬɧɨɣ ɮɨɪɦɟ ɭɫɬɚɧɨɜɢɬɟ ɤɚɥɟɧɞɚɪɶ. ȼɵɛɪɚɧ-
ɧɚɹ ɜ ɤɚɥɟɧɞɚɪɟ ɞɚɬɚ ɞɨɥɠɧɚ ɨɬɨɛɪɚɠɚɬɶɫɹ ɜ ɨɞɧɨɫɬɪɨɱɧɨɦ
ɪɟɞɚɤɬɨɪɟ
2
1. ɋɧɚɛɞɢɬɟ ɝɥɚɜɧɭɸ ɮɨɪɦɭ ɜɢɞɟɨɤɥɢɩɨɦ.
2. ȼ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ ʋ 1 ɨɫɭɳɟɫɬɜɢɬɟ ɜɨɡɦɨɠɧɨɫɬɶ
ɜɜɨɞɚ ɫ ɩɨɦɨɳɶɸ ɤɨɦɩɨɧɟɧɬɚ TUpDown
3
1. ɋɧɚɛɞɢɬɟ ɮɨɪɦɭ Password ɜɢɞɟɨɤɥɢɩɨɦ.
2. ɇɚ ɫɬɚɧɞɚɪɬɧɨɣ ɮɨɪɦɟ ɭɫɬɚɧɨɜɢɬɟ ɤɚɥɟɧɞɚɪɶ. ȼɵɛɪɚɧ-
ɧɚɹ ɜ ɤɚɥɟɧɞɚɪɟ ɞɚɬɚ ɞɨɥɠɧɚ ɨɬɨɛɪɚɠɚɬɶɫɹ ɧɚ ɩɚɧɟɥɢ ɫɬɚ-
ɬɭɫɚ
4
1. ɇɚ ɩɚɧɟɥɢ Password ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬ TShape. ȼɢɞ
ɝɟɨɦɟɬɪɢɱɟɫɤɨɣ ɮɢɝɭɪɵ ɞɨɥɠɟɧ ɢɡɦɟɧɹɬɶɫɹ ɜɨ ɜɪɟɦɟɧɢ.
2. ȼ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ ʋ 1 ɨɫɭɳɟɫɬɜɢɬɟ ɜɨɡɦɨɠɧɨɫɬɶ
ɜɜɨɞɚ ɫ ɩɨɦɨɳɶɸ ɤɨɦɩɨɧɟɧɬɚ TUpDate
5
1. ɋɧɚɛɞɢɬɟ ɥɚɛɨɪɚɬɨɪɧɭɸ ɪɚɛɨɬɭ ʋ 1 ɜɢɞɟɨɤɥɢɩɨɦ.
2. ȼ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ ʋ 1 ɨɫɭɳɟɫɬɜɢɬɟ ɜɨɡɦɨɠɧɨɫɬɶ
ɜɜɨɞɚ ɫ ɩɨɦɨɳɶɸ ɤɨɦɩɨɧɟɧɬɚ TUpDate
68
    2. ɋɨɡɞɚɣɬɟ    ɨɛɪɚɛɨɬɱɢɤ    ɫɨɛɵɬɢɹ   OnClick   ɞɥɹ      ɤɨɦɩɨɧɟɧɬɚ
ɆonthCalendar1.
     procedure TForm1.MonthCalendar1Click(Sender: TObject);
     begin
        Edit2.Text := DateToStr(MonthCalendar1.Date);
     end;




               Ɋɢɫ. 3.5.3. Ɍɪɟɬɶɹ ɫɬɪɚɧɢɰɚ PageControl1

2. ɋɚɦɨɫɬɨɹɬɟɥɶɧɚɹ ɪɚɛɨɬɚ
Ɂɚɞɚɧɢɟ. ɋɨɡɞɚɬɶ ɩɪɨɝɪɚɦɦɭ ɫ ɮɭɧɤɰɢɨɧɚɥɶɧɵɦɢ ɜɨɡɦɨɠɧɨɫɬɹɦɢ ɫɨɝɥɚɫ-
        ɧɨ ɩɨɥɭɱɟɧɧɨɦɭ ɜɚɪɢɚɧɬɭ.
  ȼɚɪɢɚɧɬɵ                       ɂɫɯɨɞɧɵɟ ɞɚɧɧɵɟ
             1. ɇɚ ɝɥɚɜɧɭɸ ɮɨɪɦɭ ɩɨɦɟɫɬɢɬɟ ɫɜɨɣ ɪɢɫɭɧɨɤ, ɫɞɟɥɚɧɧɵɣ
             ɫ ɩɨɦɨɳɶɸ ɤɨɦɩɨɧɟɧɬɚ TɊaintBox.
      1      2. ɇɚ ɫɬɚɧɞɚɪɬɧɨɣ ɮɨɪɦɟ ɭɫɬɚɧɨɜɢɬɟ ɤɚɥɟɧɞɚɪɶ. ȼɵɛɪɚɧ-
             ɧɚɹ ɜ ɤɚɥɟɧɞɚɪɟ ɞɚɬɚ ɞɨɥɠɧɚ ɨɬɨɛɪɚɠɚɬɶɫɹ ɜ ɨɞɧɨɫɬɪɨɱɧɨɦ
             ɪɟɞɚɤɬɨɪɟ
             1. ɋɧɚɛɞɢɬɟ ɝɥɚɜɧɭɸ ɮɨɪɦɭ ɜɢɞɟɨɤɥɢɩɨɦ.
      2      2. ȼ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ ʋ 1 ɨɫɭɳɟɫɬɜɢɬɟ ɜɨɡɦɨɠɧɨɫɬɶ
             ɜɜɨɞɚ ɫ ɩɨɦɨɳɶɸ ɤɨɦɩɨɧɟɧɬɚ TUpDown
             1. ɋɧɚɛɞɢɬɟ ɮɨɪɦɭ Password ɜɢɞɟɨɤɥɢɩɨɦ.
      3      2. ɇɚ ɫɬɚɧɞɚɪɬɧɨɣ ɮɨɪɦɟ ɭɫɬɚɧɨɜɢɬɟ ɤɚɥɟɧɞɚɪɶ. ȼɵɛɪɚɧ-
             ɧɚɹ ɜ ɤɚɥɟɧɞɚɪɟ ɞɚɬɚ ɞɨɥɠɧɚ ɨɬɨɛɪɚɠɚɬɶɫɹ ɧɚ ɩɚɧɟɥɢ ɫɬɚ-
             ɬɭɫɚ
             1. ɇɚ ɩɚɧɟɥɢ Password ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬ TShape. ȼɢɞ
      4      ɝɟɨɦɟɬɪɢɱɟɫɤɨɣ ɮɢɝɭɪɵ ɞɨɥɠɟɧ ɢɡɦɟɧɹɬɶɫɹ ɜɨ ɜɪɟɦɟɧɢ.
             2. ȼ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ ʋ 1 ɨɫɭɳɟɫɬɜɢɬɟ ɜɨɡɦɨɠɧɨɫɬɶ
             ɜɜɨɞɚ ɫ ɩɨɦɨɳɶɸ ɤɨɦɩɨɧɟɧɬɚ TUpDate
             1. ɋɧɚɛɞɢɬɟ ɥɚɛɨɪɚɬɨɪɧɭɸ ɪɚɛɨɬɭ ʋ 1 ɜɢɞɟɨɤɥɢɩɨɦ.
      5      2. ȼ ɥɚɛɨɪɚɬɨɪɧɨɣ ɪɚɛɨɬɟ ʋ 1 ɨɫɭɳɟɫɬɜɢɬɟ ɜɨɡɦɨɠɧɨɫɬɶ
             ɜɜɨɞɚ ɫ ɩɨɦɨɳɶɸ ɤɨɦɩɨɧɟɧɬɚ TUpDate
                                 68

Страницы