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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

ȼ ɩɚɥɢɬɪɟ ɤɨɦɩɨɧɟɧɬɨɜ ɢɦɟɸɬɫɹ ɞɜɚ ɷɥɟɦɟɧɬɚ ɭɩɪɚɜɥɟɧɢɹ, ɨɛɟɫɩɟɱɢ-
ɜɚɸɳɢɯ ɫɨɡɞɚɧɢɟ ɦɧɨɝɨɫɬɪɚɧɢɱɧɵɯ ɛɥɨɤɧɨɬɨɜ. ɗɬɨ ɤɨɦɩɨɧɟɧɬɵ
TTabControl ɢ TPageControl. ɉɟɪɟɤɥɸɱɟɧɢɟ ɦɟɠɞɭ ɫɬɪɚɧɢɰɚɦɢ ɨɫɭɳɟɫɬ-
ɜɥɹɟɬɫɹ ɩɪɢ ɩɨɦɨɳɢ ɡɚɤɥɚɞɨɤ. Ʉɨɦɩɨɧɟɧɬ TɊageControl ɦɨɠɟɬ ɫɨɞɟɪɠɚɬɶ
ɧɟɫɤɨɥɶɤɨ ɩɟɪɟɤɪɵɜɚɸɳɢɯ ɞɪɭɝ ɞɪɭɝɚ ɩɚɧɟɥɟɣ ɤɥɚɫɫɚ TɌabSheet. Ʉɚɠɞɚɹ
ɩɚɧɟɥɶ ɜɵɛɢɪɚɟɬɫɹ ɫɜɹɡɚɧɧɨɣ ɫ ɧɟɣ ɡɚɤɥɚɞɤɨɣ ɢ ɦɨɠɟɬ ɫɨɞɟɪɠɚɬɶ ɫɜɨɣ ɧɚ-
ɛɨɪ ɩɨɦɟɳɟɧɧɵɯ ɧɚ ɧɟɟ ɤɨɦɩɨɧɟɧɬɨɜ.
1. ɉɨɦɟɫɬɢɬɟ ɧɚ ɮɨɪɦɭ ɤɨɦɩɨɧɟɧɬ TPageControl, ɡɚɞɚɣɬɟ ɫɜɨɣɫɬɜɭ
Align ɡɧɚɱɟɧɢɟ alClient.
2. ɑɬɨɛɵ ɧɚ ɷɬɚɩɟ ɤɨɧɫɬɪɭɢɪɨɜɚɧɢɹ ɞɨɛɚɜɢɬɶ ɧɨɜɭɸ ɩɚɧɟɥɶ ɳɟɥɤɧɢɬɟ
ɩɨ ɤɨɦɩɨɧɟɧɬɭ ɩɪɚɜɨɣ ɤɧɨɩɤɨɣ ɦɵɲɢ ɢ ɜɵɛɟɪɢɬɟ New Page. Ⱦɥɹ ɧɨɜɨɣ
ɫɬɪɚɧɢɰɵ ɦɨɠɧɨ ɭɫɬɚɧɨɜɢɬɶ ɡɚɝɨɥɨɜɨɤ ɜ ɫɜɨɣɫɬɜɟ Caption ɪɢɫ. 3.5.1.
1.4. Ʉɨɦɩɨɧɟɧɬ TɊaintBox
Ʉɨɦɩɨɧɟɧɬ TPaintBox ɪɚɫɩɨɥɨɠɟɧ ɧɚ ɩɚɧɟɥɢ System. ɗɬɨ ɩɪɨɫɬɨɟ ɨɤɧɨ
ɞɥɹ ɪɢɫɨɜɚɧɢɹ ɩɪɨɢɡɜɨɥɶɧɵɯ ɢɡɨɛɪɚɠɟɧɢɣ. Ʉɚɧɜɚ ɫɨɞɟɪɠɢɬɫɹ ɜ ɫɜɨɣɫɬɜɟ
Canvas ɤɨɦɩɨɧɟɧɬɚ, ɝɪɚɮɢɱɟɫɤɢɟ ɢɧɫɬɪɭɦɟɧɬɵ – ɜ ɫɜɨɣɫɬɜɚɯ Font, Pen ɢ
Brush.
1. ɉɨɦɟɫɬɢɬɟ ɧɚ ɩɟɪɜɭɸ ɫɬɪɚɧɢɰɭ PageControl ɤɨɦɩɨɧɟɧɬ TPanel ɢ
ɡɚɞɚɣɬɟ ɟɝɨ ɫɜɨɣɫɬɜɭ Align ɡɧɚɱɟɧɢɟ alRight.
2. ɇɚ ɩɚɧɟɥɶ ɩɨɦɟɫɬɢɬɟ ɞɜɟ ɤɧɨɩɤɢ TBitBtn. Ɂɚɞɚɣɬɟ ɤɧɨɩɤɚɦ ɡɚɝɨ-
ɥɨɜɤɢ ɢ ɩɢɤɬɨɝɪɚɦɦɵ (
ɫɜɨɣɫɬɜɚ Caption ɢ Glyph).
Ɋɢɫ. 3.5.1. ɉɟɪɜɚɹ ɫɬɪɚɧɢɰɚ ɛɥɨɤɧɨɬɚ PageControl1
3. ɇɚ ɫɜɨɛɨɞɧɨɟ ɦɟɫɬɨ ɫɬɪɚɧɢɰɵ ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬ TPaintBox
(Align = alClient).
4. ɋɨɡɞɚɣɬɟ ɨɛɪɚɛɨɬɱɢɤ ɫɨɛɵɬɢɹ OnClick ɞɥɹ BitBtn1.
procedure TForm1.BitBtn1Click(Sender: TObject);
Var x, y, w, h : Integer;
begin
With PaintBox1.Canvas Do
begin
64
   ȼ ɩɚɥɢɬɪɟ ɤɨɦɩɨɧɟɧɬɨɜ ɢɦɟɸɬɫɹ ɞɜɚ ɷɥɟɦɟɧɬɚ ɭɩɪɚɜɥɟɧɢɹ, ɨɛɟɫɩɟɱɢ-
ɜɚɸɳɢɯ ɫɨɡɞɚɧɢɟ ɦɧɨɝɨɫɬɪɚɧɢɱɧɵɯ ɛɥɨɤɧɨɬɨɜ. ɗɬɨ ɤɨɦɩɨɧɟɧɬɵ
TTabControl ɢ TPageControl. ɉɟɪɟɤɥɸɱɟɧɢɟ ɦɟɠɞɭ ɫɬɪɚɧɢɰɚɦɢ ɨɫɭɳɟɫɬ-
ɜɥɹɟɬɫɹ ɩɪɢ ɩɨɦɨɳɢ ɡɚɤɥɚɞɨɤ. Ʉɨɦɩɨɧɟɧɬ TɊageControl ɦɨɠɟɬ ɫɨɞɟɪɠɚɬɶ
ɧɟɫɤɨɥɶɤɨ ɩɟɪɟɤɪɵɜɚɸɳɢɯ ɞɪɭɝ ɞɪɭɝɚ ɩɚɧɟɥɟɣ ɤɥɚɫɫɚ TɌabSheet. Ʉɚɠɞɚɹ
ɩɚɧɟɥɶ ɜɵɛɢɪɚɟɬɫɹ ɫɜɹɡɚɧɧɨɣ ɫ ɧɟɣ ɡɚɤɥɚɞɤɨɣ ɢ ɦɨɠɟɬ ɫɨɞɟɪɠɚɬɶ ɫɜɨɣ ɧɚ-
ɛɨɪ ɩɨɦɟɳɟɧɧɵɯ ɧɚ ɧɟɟ ɤɨɦɩɨɧɟɧɬɨɜ.
   1. ɉɨɦɟɫɬɢɬɟ ɧɚ ɮɨɪɦɭ ɤɨɦɩɨɧɟɧɬ TPageControl, ɡɚɞɚɣɬɟ ɫɜɨɣɫɬɜɭ
Align ɡɧɚɱɟɧɢɟ alClient.
   2. ɑɬɨɛɵ ɧɚ ɷɬɚɩɟ ɤɨɧɫɬɪɭɢɪɨɜɚɧɢɹ ɞɨɛɚɜɢɬɶ ɧɨɜɭɸ ɩɚɧɟɥɶ ɳɟɥɤɧɢɬɟ
ɩɨ ɤɨɦɩɨɧɟɧɬɭ ɩɪɚɜɨɣ ɤɧɨɩɤɨɣ ɦɵɲɢ ɢ ɜɵɛɟɪɢɬɟ New Page. Ⱦɥɹ ɧɨɜɨɣ
ɫɬɪɚɧɢɰɵ ɦɨɠɧɨ ɭɫɬɚɧɨɜɢɬɶ ɡɚɝɨɥɨɜɨɤ ɜ ɫɜɨɣɫɬɜɟ Caption ɪɢɫ. 3.5.1.
   1.4. Ʉɨɦɩɨɧɟɧɬ TɊaintBox
   Ʉɨɦɩɨɧɟɧɬ TPaintBox ɪɚɫɩɨɥɨɠɟɧ ɧɚ ɩɚɧɟɥɢ System. ɗɬɨ ɩɪɨɫɬɨɟ ɨɤɧɨ
ɞɥɹ ɪɢɫɨɜɚɧɢɹ ɩɪɨɢɡɜɨɥɶɧɵɯ ɢɡɨɛɪɚɠɟɧɢɣ. Ʉɚɧɜɚ ɫɨɞɟɪɠɢɬɫɹ ɜ ɫɜɨɣɫɬɜɟ
Canvas ɤɨɦɩɨɧɟɧɬɚ, ɝɪɚɮɢɱɟɫɤɢɟ ɢɧɫɬɪɭɦɟɧɬɵ – ɜ ɫɜɨɣɫɬɜɚɯ Font, Pen ɢ
Brush.
   1. ɉɨɦɟɫɬɢɬɟ ɧɚ ɩɟɪɜɭɸ ɫɬɪɚɧɢɰɭ PageControl ɤɨɦɩɨɧɟɧɬ TPanel ɢ
ɡɚɞɚɣɬɟ ɟɝɨ ɫɜɨɣɫɬɜɭ Align ɡɧɚɱɟɧɢɟ alRight.
   2. ɇɚ ɩɚɧɟɥɶ ɩɨɦɟɫɬɢɬɟ ɞɜɟ ɤɧɨɩɤɢ TBitBtn. Ɂɚɞɚɣɬɟ ɤɧɨɩɤɚɦ ɡɚɝɨ-
ɥɨɜɤɢ ɢ ɩɢɤɬɨɝɪɚɦɦɵ (ɫɜɨɣɫɬɜɚ Caption ɢ Glyph).




          Ɋɢɫ. 3.5.1. ɉɟɪɜɚɹ ɫɬɪɚɧɢɰɚ ɛɥɨɤɧɨɬɚ PageControl1

3. ɇɚ ɫɜɨɛɨɞɧɨɟ ɦɟɫɬɨ ɫɬɪɚɧɢɰɵ ɩɨɦɟɫɬɢɬɟ ɤɨɦɩɨɧɟɧɬ TPaintBox
   (Align = alClient).
4. ɋɨɡɞɚɣɬɟ ɨɛɪɚɛɨɬɱɢɤ ɫɨɛɵɬɢɹ OnClick ɞɥɹ BitBtn1.
      procedure TForm1.BitBtn1Click(Sender: TObject);
      Var x, y, w, h : Integer;
      begin
         With PaintBox1.Canvas Do
              begin
                                 64

Страницы