| 1 | | 4 | | | 6 | | 12 | |

© um.co.ua -

-

  1. I.
  2. I.
  3. I.
  4. I. ֳ .
  5. I.
  6. II.
  7. II. в

, 䳿:

1. ϳ (, ).

2. ' (, ).

3. ' , (, ˳).

16


4. ϳ ' .

5.

17


6. .

7. - , .

1. ³ .

2. : Panel, Image, OpenDialog.

3. 䳿:

7. 8

' Object Inspector ' / ' 䳿 ij
Form1 Properties Caption
Events OnMouseDown var p: TPoint; beginp.X: = X; p.Y: = Y; p: = ClientToScreen (p); PopupMenu1.Popup (p.X, p.Y); end;
( )
Form1.MainMenu1 Properties ( Object Inspector ') Caption - , Enter. ' N1
̳ .
Form1.MainMenu1 Properties Caption - , Enter. ' N2.
Events ( ) N2Click Close;
. . , . , : ( ' N3) (N4). Ctrl + .
N4: TMenuItem Events OnClick - N2Click
Form1.MainMenu1 Properties Caption - , Enter. ' N5.
N5: TMenuItem Events ( ) OnClick Image1.Picture.LoadFromFile ( 'C: \ Windows \ .bmp');
Form1.MainMenu1 Properties Caption - ˳, Enter. ' N6.
N6: TMenuItem Events ( ˳) OnClick Image1.Picture.LoadFromFile ( 'C: \ Windows \ .bmp');
, ' .
7.
' Object Inspector ' / ' 䳿 ij
PopupMenu ( Standard) Properties Caption - , Enter. ' N7.
Caption - ˳, Enter. ' N8.
N7 Events OnClick - N5Click
N8 Events OnClick - N6Click
Image ( Additional) Properties Stretch True

4. , .



7 |