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

ɤɨɬɨɪɵɣ ɞɨɥɠɟɧ ɩɪɨɣɬɢ ɨɬ ɜɤɥɸɱɟɧɢɹ ɬɚɣɦɟɪɚ ɞɨ ɧɚɫɬɭɩɥɟɧɢɹ ɫɨɛɵɬɢɹ
OnTimer. Ɍɚɣɦɟɪ ɜɤɥɸɱɚɟɬɫɹ ɩɪɢ ɭɫɬɚɧɨɜɤɟ ɡɧɚɱɟɧɢɹ True ɜ ɟɝɨ ɫɜɨɣɫɬɜɨ
Enabled. Ɋɚɡ ɜɤɥɸɱɟɧɧɵɣ ɬɚɣɦɟɪ ɜɫɟ ɜɪɟɦɹ ɛɭɞɟɬ ɜɨɡɛɭɠɞɚɬɶ ɫɨɛɵɬɢɹ
OnTimer, ɩɨɤɚ ɟɝɨ ɫɜɨɣɫɬɜɨ Enabled ɧɟ ɩɪɢɦɟɬ ɡɧɚɱɟɧɢɹ False.
1. ɉɨɦɟɫɬɢɬɟ ɧɚ ɜɬɨɪɭɸ ɫɬɪɚɧɢɰɭ ɛɥɨɤɧɨɬɚ ɤɨɦɩɨɧɟɧɬɵ TAnimate,
   TShape, TProgressBar, TTimer, TUpDown, TEdit.
2. ɇɚɣɞɢɬɟ ɜ ɤɚɬɚɥɨɝɟ Delphi7 ɥɸɛɨɣ ɮɚɣɥ ɫ ɪɚɫɲɢɪɟɧɢɟɦ AVI ɢ ɫɤɨɩɢ-
   ɪɭɣɬɟ ɟɝɨ ɜ ɫɜɨɣ ɤɚɬɚɥɨɝ Lab_7. ɍɫɬɚɧɨɜɢɬɟ ɢɦɹ ɷɬɨɝɨ ɮɚɣɥɚ ɜ ɫɜɨɣɫɬ-
   ɜɨ FileName ɤɨɦɩɨɧɟɧɬɚ Animate1. Ɇɨɠɧɨ ɬɚɤɠɟ ɜɵɛɪɚɬɶ ɫɬɚɧɞɚɪɬɧɵɣ
   ɮɚɣɥ ɚɧɢɦɚɰɢɢ ɜ ɫɜɨɣɫɬɜɟ CommonAVI.
3. ɍɫɬɚɧɨɜɢɬɟ ɜ ɫɜɨɣɫɬɜɨ Enabled ɤɨɦɩɨɧɟɧɬɚ Timer1 ɡɧɚɱɟɧɢɟ False.
4. ɉɨɦɟɫɬɢɬɟ ɜ ɫɜɨɣɫɬɜɨ Visible ɤɨɦɩɨɧɟɧɬɚ ProgressBar1 ɡɧɚɱɟɧɢɟ
False.
5. ɋɨɡɞɚɣɬɟ ɨɛɪɚɛɨɬɱɢɤ ɫɨɛɵɬɢɹ OnTimer ɤɨɦɩɨɧɟɧɬɚ Timer1:

procedure TForm1.Timer1Timer(Sender: TObject);
   begin
     ProgressBar1.Position := ProgressBar1.Position +1;
     If ProgressBar1.Position>=ProgressBar1.Max
         Then
           Begin
               Timer1.Enabled := False;
               ProgressBar1.Hide;
               Animate1.Stop;
           end;
   end;

6. ɉɪɢ ɳɟɥɱɤɟ ɩɨ ɤɧɨɩɤɚɦ ɤɨɦɩɨɧɟɧɬɚ TUpDown ɜɨɡɧɢɤɚɟɬ ɫɨɛɵɬɢɟ
   OnClick. ɋɨɡɞɚɞɢɦ ɫɨɨɬɜɟɬɫɬɜɭɸɳɢɣ ɨɛɪɚɛɨɬɱɢɤ:

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
    //Ɂɧɚɱɟɧɢɟ ɫɜɨɣɫɬɜɚ Position ɤɨɦɩɨɧɟɧɬɚ UpDate1 ɨɬɪɚɠɚɟɬɫɹ ɜ
Memo1.
    Edit1.Text := IntToStr(UpDown1.Position);
    Case UpDown1.Position mod 5 Of
       //ȼ ɡɚɜɢɫɢɦɨɫɬɢ ɨɬ ɡɧɚɱɟɧɢɹ ɫɜɨɣɫɬɜɚ Position ɤɨɦɩɨɧɟɧɬɚ UpDate1
       //ɢɡɦɟɧɹɟɬɫɹ ɜɢɞ ɮɢɝɭɪɵ ɜ ɤɨɦɩɨɧɟɧɬɟ Shape1.
       0: Shape1.Shape := stRectangle;
       1: Shape1.Shape := stSquare;
       2: Shape1.Shape := stRoundRect;
       3: Shape1.Shape := stRoundSquare;

                                    66