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

          4: Shape1.Shape := stEllipse;
          5: Shape1.Shape := stCircle;
       end;
end;
   7. Ɍɚɣɦɟɪ ɜɤɥɸɱɚɟɬɫɹ ɩɪɢ ɧɚɠɚɬɢɢ ɧɚ ɤɧɨɩɤɭ ʋ 3 ɩɚɧɟɥɢ ɢɧɫɬɪɭɦɟɧ-
ɬɨɜ:

        procedure TForm1.ToolButton3Click(Sender: TObject);
        begin
           ProgressBar1.Position := 0;
           Animate1.Active := True;
           ProgressBar1.Show;
           Timer1.Enabled := True;
        end;
   8. Ɂɚɩɭɫɬɢɬɟ ɩɪɨɝɪɚɦɦɭ ɢ ɩɪɨɜɟɪɶɬɟ ɩɪɚɜɢɥɶɧɨɫɬɶ ɜɚɲɢɯ ɞɟɣɫɬɜɢɣ
      (ɫɦ. ɪɢɫ. 3.5.2).




              Ɋɢɫ. 3.5.2. ȼɬɨɪɚɹ ɫɬɪɚɧɢɰɚ ɛɥɨɤɧɨɬɚ PageControl1
1.6.  Ʉɚɥɟɧɞɚɪɢ
      ȼɵɛɨɪ ɞɚɬɵ – ɨɞɧɚ ɢɡ ɱɚɫɬɨ ɢɫɩɨɥɶɡɭɟɦɵɯ ɨɩɟɪɚɰɢɣ ɩɪɢ ɜɜɨɞɟ ɞɚɧ-
ɧɵɯ. Ʉɨɦɩɨɧɟɧɬ TMonthCalendar ɢɧɤɚɩɫɭɥɢɪɭɟɬ ɤɚɥɟɧɞɚɪɶ, ɩɚɧɟɥɶ ɤɨɬɨ-
ɪɨɝɨ ɫɨɞɟɪɠɢɬ ɬɢɩɨɜɭɸ ɬɚɛɥɢɰɭ ɧɚ ɨɞɢɧ ɦɟɫɹɰ. ɉɪɢ ɭɜɟɥɢɱɟɧɢɢ ɪɚɡɦɟɪɨɜ
ɜ ɷɥɟɦɟɧɬɟ ɭɩɪɚɜɥɟɧɢɹ ɨɬɨɛɪɚɠɚɟɬɫɹ ɰɟɥɨɟ ɱɢɫɥɨ ɤɚɥɟɧɞɚɪɟɣ ɞɥɹ ɦɟɫɹɰɟɜ,
ɛɥɢɠɚɣɲɢɯ ɤ ɬɟɤɭɳɟɦɭ. Ɋɟɡɭɥɶɬɚɬ ɜɵɛɨɪɚ ɞɚɬɵ ɜ ɤɚɥɟɧɞɚɪɟ ɫɨɯɪɚɧɹɟɬɫɹ ɜ
ɫɜɨɣɫɬɜɟ Date. Ʉɨɦɩɨɧɟɧɬ NDateTimePicker ɫɨɜɦɟɳɚɟɬ ɤɚɥɟɧɞɚɪɶ ɫ ɨɞɧɨ-
ɫɬɪɨɱɧɵɦ ɬɟɤɫɬɨɜɵɦ ɪɟɞɚɤɬɨɪɨɦ. ɇɚ ɫɬɪɚɧɢɰɟ Samples ɪɚɫɩɨɥɨɠɟɧ ɟɳɟ
ɨɞɢɧ ɤɚɥɟɧɞɚɪɶ TCalendar.
      1. ɇɚ ɬɪɟɬɶɸ ɩɚɧɟɥɶ ɛɥɨɤɧɨɬɚ ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬɵ: TPanel
(Align = alRight); TEdit (ɧɚ ɩɚɧɟɥɶ); TɆonthCalendar(Align = alClient)
(ɪɢɫ. 3.5.3).


                                          67