| 1 | | 4 | | | 6 | 7 | - | |

© um.co.ua -

12

  1. II. .
  2. TEA 8.
  3. V. в
  4. .
  5. .
  6. , ! ³ !
  7. )

" "

- , 䳿:

1. ϳ .

2. .

3. , .

24


4. .

1. ³ .

2. : Button, TrackBar, GroupBox, Label, CheckBox.

3. 䳿:

12. 12

' Object Inspector ' / ' 䳿 ij
Form1 Properties Caption
TrackBar1 ( Win32) Properties Min (̳) 2
Max () 99
Position () 2
LineSize ( ) 1
PageSize ( ) 7
Frequency ( ) 7
Events OnChange Label1.Caption: = IntToStr (TrackBar1.Position); Label3.Caption: = IntToStr (TrackBar1.Position * TrackBar2.Position); if CheckBox1.Checked thenTrackBar2.Position: = TrackBar1.Position;
12
' Object Inspector ' / ' 䳿 ij
TrackBar2 ( Win32) Properties Min (̳) 2
Max () 99
Position () 2
LineSize ( ) 1
PageSize ( ) 7
Frequency ( ) 7
Events OnChange Label2.Caption: = IntToStr (TrackBar2.Position); Label3.Caption: = IntToStr (TrackBar1.Position * TrackBar2.Position); if CheckBox1.Checked thenTrackBar1.Position: = TrackBar2.Position;
GroupBox1 ( Standard) Properties Caption
Label1 ( Standard) Properties AutoSize () False
Caption 2
Alignment () taRightJustify ( )
Label2 ( Standard) Properties AutoSize False
Caption 2
Alignment taRightJustify ( )
Label3 ( Standard) Properties AutoSize False
Caption 4
Alignment taRightJustify ( )
CheckBox1 ( Standard) Properties Caption
Alignment taLefttJustify ( )
Events OnClick TrackBar2.Position: = TrackBar1.Position;

4. , .



|