4 | | | 6 | 7 | - | | | 12 | |

© um.co.ua -

15

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

- ' - 泻. , . , - . . , , , . .

1. , - .

2. .

3. .

, , , , . , .

27


1. ³ .

2. : Panel, BitBtn.

3. 䳿:

15. 15

' Object Inspector ' / ' 䳿 ij
Form1 Properties Caption
Panel1 ( Standard) Properties Height 65
Width 401
Caption
BitBtn1 ( Additional) Properties Height 49
Width 49
Left 8
Top 8
BitBtn2 Properties Height 49
Width 49
Left 64
Top 8
BitBtn3 Properties Height 49
Width 49
Left 120
Top 8
BitBtn4 Properties Height 49
Width 49
Left 232
Top 8
BitBtn5 Properties Height 49
Width 49
Left 288
15
Top 8
' Object Inspector ' / ' 䳿 ij
BitBtn6 Properties Height 49
Width 49
Left 344
Top 8

4. .

5. Paint. 45x45 ( ).

6. Left.bmp Right.bmp, . ' Left.bmp , ' Right.bmp - .

7. .

15.

BitBtn1, BitBtn2, BitBtn3, BitBtn4, BitBtn5, BitBtn6 Properties Caption
Glyph () . ³ Picture Editor. Load. ³. Ok, ' .

8. : , ; , .

9. . , .

10. Tag () .

16.

Tag
,
,
,
,
' ,
,

11.

var n: Integer = 4;

12.

win: Integer = 24; { 24 }

13. .

17.

' Object Inspector B 䳿 ij
BitBtn1 Events OnClick BitBtn1Click - ' Sender. ³ ', , . , ' Sender . Tag ', (Sender as TBitBtn) .Tag.

14. , .



14 | 16