Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ ΠΌΠ½ΠΎΠ³ΠΎΠΏΠΎΡΠΎΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Ρ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ ΡΠ²ΠΎΠΉΡΡΠ² ΠΎΠΊΠ½Π° ΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ
ΠΠΎΡΠ²Π»Π΅Π½ΠΈΠ΅ Delphi Π½Π΅ ΠΌΠΎΠ³Π»ΠΎ ΠΏΡΠΎΠΉΡΠΈ Π½Π΅Π·Π°ΠΌΠ΅ΡΠ΅Π½Π½ΡΠΌ ΡΡΠ΅Π΄ΠΈ ΠΌΠ½ΠΎΠ³ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°. ΠΡΠ΅Π½ΠΊΠΈ ΡΠΊΡΠΏΠ΅ΡΡΠΎΠ², ΠΈΠ·ΡΡΠ°ΡΡΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΡΡΠΎΠ³ΠΎ ΠΏΡΠΎΠ΄ΡΠΊΡΠ° ΡΠΈΡΠΌΡ Borland, ΠΎΠ±ΡΡΠ½ΠΎ ΠΎΠΊΡΠ°ΡΠ΅Π½Ρ Π² Π²ΠΎΡΡΠΎΡΠΆΠ΅Π½Π½ΡΠ΅ ΡΠΎΠ½Π°. ΠΡΠ½ΠΎΠ²Π½ΠΎΠ΅ Π΄ΠΎΡΡΠΎΠΈΠ½ΡΡΠ²ΠΎ Delphi ΡΠΎΡΡΠΎΠΈΡ Π² ΡΠΎΠΌ, ΡΡΠΎ Π·Π΄Π΅ΡΡ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Ρ ΠΈΠ΄Π΅ΠΈ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. Π‘ΡΠ΅Π΄Π° Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠ΅Π²ΡΠ°ΡΠ°Π΅Ρ ΠΏΡΠΎΡΠ΅ΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π² ΠΏΡΠΈΡΡΠ½ΠΎΠ΅ ΠΈ Π»Π΅Π³ΠΊΠΎ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ ΠΌΠ½ΠΎΠ³ΠΎΠΏΠΎΡΠΎΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Ρ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ ΡΠ²ΠΎΠΉΡΡΠ² ΠΎΠΊΠ½Π° ΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠ£Π Π‘ΠΠΠΠ― Π ΠΠΠΠ’Π
ΠΏΠΎ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Π΅: «Π‘ΡΠ΅Π΄Ρ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ»
Π’Π΅ΠΌΠ°: «Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ ΠΌΠ½ΠΎΠ³ΠΎΠΏΠΎΡΠΎΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Ρ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ ΡΠ²ΠΎΠΉΡΡΠ² ΠΎΠΊΠ½Π° ΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ»
- ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
- 1. ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ
- 2. ΠΡΠ±ΠΎΡ ΡΡΠ΅Π΄ΡΡΠ² ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ
- 3. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π»ΠΎΠ³ΠΈΠΊΠΈ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ
- 4. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°
- ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
- Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΠΎΠΉ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
- ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
ΠΠ°ΡΠ°ΡΡΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π±ΡΡΡΡΡΠΉ Π΄ΠΎΡΡΡΠΏ ΠΊ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ. ΠΡΡ ΡΠ°ΡΠ΅ Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.
ΠΠ΄Π½ΠΈΠΌ ΠΈΠ· Π²Π°ΠΆΠ½Π΅ΠΉΡΠΈΡ ΡΠ°Π·Π΄Π΅Π»ΠΎΠ² Π½Π°ΡΠΊΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅. Π―Π·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ — ΡΡΠΎ ΡΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΉ, ΠΈΡΠΊΡΡΡΡΠ²Π΅Π½Π½ΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΡΠΉ ΡΠ·ΡΠΊ Π΄Π»Ρ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΈ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° Π½Π° ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ΅.
Π‘ΡΠ΅Π΄ΠΈ Π³Π»Π°Π²Π½ΡΡ ΠΏΡΠΈΡΠΈΠ½, ΠΏΡΠΈΠ½Π΅ΡΡΠΈΡ Π·Π°ΡΠ»ΡΠΆΠ΅Π½Π½ΡΡ ΠΏΠΎΠΏΡΠ»ΡΡΠ½ΠΎΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΎΡΠΌΠ΅ΡΠΈΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅:
Β· ΠΏΠΎΡΡΠΈ ΠΏΠΎΠ»Π½ΠΎΠ΅ ΡΠ°Π·ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ ΠΊΡΠΈΠ·ΠΈΡΠ° Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΌ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠΈ, Π·Π° ΡΡΠ΅Ρ ΡΠΌΠ΅Π½ΡΡΠ΅Π½ΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π½Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΄ΡΠΊΡΠ° ΠΈ Π²ΡΡΠΎΠΊΠΎΠΉ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ;
Β· ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ ΠΎΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΡ ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊ Π½ΠΎΠ²ΡΠΌ, ΠΏΡΠΎΠ³ΡΠ΅ΡΡΠΈΠ²Π½ΡΠΌ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠΌ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠΌ ΠΈ ΡΡ ΠΎΠ΄ΡΡΠ²ΠΎ ΠΈΠ΄Π΅ΠΉ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Ρ ΠΈΠ΄Π΅ΡΠΌΠΈ ΠΈΠ· Π΄ΡΡΠ³ΠΈΡ ΠΎΠ±Π»Π°ΡΡΠ΅ΠΉ Π½Π°ΡΠΊΠΈ.
ΠΠ΅ΡΠΎΠ΄Ρ ΠΠΠ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΡ Π·Π°Π΄Π°Ρ Π½Π΅ΡΠ΅Π΄ΠΊΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π² ΠΏΠΎΠ²ΡΠ΅Π΄Π½Π΅Π²Π½ΠΎΠΉ ΠΆΠΈΠ·Π½ΠΈ, ΠΏΠΎΡΡΠΎΠΌΡ, ΠΎΠ±ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ·ΡΠΊΠ°ΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π΅ Π²ΡΠ·ΡΠ²Π°Π΅Ρ ΠΎΡΠΎΠ±ΡΡ ΡΡΡΠ΄Π½ΠΎΡΡΠ΅ΠΉ.
ΠΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²ΠΎ ΠΠΠ Π² Π½Π°Π³Π»ΡΠ΄Π½ΠΎΠΌ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² (ΠΊΠ½ΠΎΠΏΠΎΠΊ, ΡΡΡΠΎΠΊ Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΈ Π΄Ρ.). ΠΠ°ΠΆΠ΄ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌΡ ΠΊΠ»Π°ΡΡΡ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΊΠ½ΠΎΠΏΠΊΠ° (Button1) ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ ΠΊΠ»Π°ΡΡΡ ΠΊΠ½ΠΎΠΏΠΎΠΊ TButton. Π ΠΊΠ»Π°ΡΡ Π²Ρ ΠΎΠ΄ΠΈΡ ΡΠΊΠΎΠ»Ρ ΡΠ³ΠΎΠ΄Π½ΠΎ ΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½Π½ΡΡ Π² ΠΎΠ΄Π½Ρ Π³ΡΡΠΏΠΏΡ ΡΠΎΠ³Π»Π°ΡΠ½ΠΎ ΠΈΡ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌ ΠΈ ΠΏΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ Π² ΡΡΠ΅Π΄Π΅ ΠΎΠΊΡΡΠΆΠ΅Π½ΠΈΡ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΎΠ½ΠΈ ΡΡΡΠ΅ΡΡΠ²ΡΡΡ ΠΈ Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΡΡΡ.
ΠΠΎΡΠ²Π»Π΅Π½ΠΈΠ΅ Delphi Π½Π΅ ΠΌΠΎΠ³Π»ΠΎ ΠΏΡΠΎΠΉΡΠΈ Π½Π΅Π·Π°ΠΌΠ΅ΡΠ΅Π½Π½ΡΠΌ ΡΡΠ΅Π΄ΠΈ ΠΌΠ½ΠΎΠ³ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°. ΠΡΠ΅Π½ΠΊΠΈ ΡΠΊΡΠΏΠ΅ΡΡΠΎΠ², ΠΈΠ·ΡΡΠ°ΡΡΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΡΡΠΎΠ³ΠΎ ΠΏΡΠΎΠ΄ΡΠΊΡΠ° ΡΠΈΡΠΌΡ Borland, ΠΎΠ±ΡΡΠ½ΠΎ ΠΎΠΊΡΠ°ΡΠ΅Π½Ρ Π² Π²ΠΎΡΡΠΎΡΠΆΠ΅Π½Π½ΡΠ΅ ΡΠΎΠ½Π°. ΠΡΠ½ΠΎΠ²Π½ΠΎΠ΅ Π΄ΠΎΡΡΠΎΠΈΠ½ΡΡΠ²ΠΎ Delphi ΡΠΎΡΡΠΎΠΈΡ Π² ΡΠΎΠΌ, ΡΡΠΎ Π·Π΄Π΅ΡΡ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Ρ ΠΈΠ΄Π΅ΠΈ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. Π‘ΡΠ΅Π΄Π° Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠ΅Π²ΡΠ°ΡΠ°Π΅Ρ ΠΏΡΠΎΡΠ΅ΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π² ΠΏΡΠΈΡΡΠ½ΠΎΠ΅ ΠΈ Π»Π΅Π³ΠΊΠΎ ΠΏΠΎΠ½ΠΈΠΌΠ°Π΅ΠΌΠΎΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΈΠ· Π±ΠΎΠ»ΡΡΠΎΠ³ΠΎ Π½Π°Π±ΠΎΡΠ° Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΈ ΡΡΡΡΠΊΡΡΡΠ½ΡΡ ΠΏΡΠΈΠΌΠΈΡΠΈΠ²ΠΎΠ².
ΠΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΠ°ΡΡΡΡ ΠΊΡΡΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ ΠΏΠΎ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΌ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°ΠΌ Delphi
1. ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ ΠΏΠΎ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΌ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°ΠΌ Delphi.
ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ: ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΏΠΎ ΠΎΡΠ½ΠΎΠ²Π½ΡΠΌ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΌ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°ΠΌ (Π½Π΅ ΠΌΠ΅Π½Π΅Π΅ 15 ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ). ΠΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Π² ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎ ΠΎΡΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΡ Π·Π°Π΄Π°Π½ΠΈΡ ΠΈΠΌ ΡΠ°Π·Π½ΡΡ ΡΠ²ΠΎΠΉΡΡΠ² (ΡΠ°Π·ΠΌΠ΅Ρ, ΡΠ²Π΅Ρ ΠΈ Ρ. Π΄.). ΠΠ±Π΅ΡΠΏΠ΅ΡΠΈΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΡΡΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ ΠΏΠΎ ΠΎΡΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ΠΌ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Ρ ΡΠ°Π½ΠΈΡΡΡΡ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅.
ΠΠ±ΡΠΈΠ΅ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ:
1. ΠΡΠΈ Π²ΡΡ ΠΎΠ΄Π΅ ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½Π½ΡΡ ΡΠ²ΠΎΠΉΡΡΠ² ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Π² ΡΠ°ΠΉΠ»Π΅ Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΡ ΠΈΡ Π·Π°Π³ΡΡΠ·ΠΊΠΈ Π² Π±ΡΠ΄ΡΡΠ΅ΠΌ.
2. Π’ΠΈΠΏ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ: GUI
2. ΠΡΠ±ΠΎΡ ΡΡΠ΅Π΄ΡΡΠ² ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ
ΠΠ»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ΅ΠΊΡΠ° Π±ΡΠ» Π²ΡΠ±ΡΠ°Π½ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ½ ΡΠΎΡΠ΅ΡΠ°Π΅Ρ Π² ΡΠ΅Π±Π΅ ΠΏΡΠΎΡΡΠΎΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ, ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΎΠ±Π»Π°Π΄Π°Π΅Ρ ΠΌΠΎΡΠ½ΡΠΌ Π½Π°Π±ΠΎΡΠΎΠΌ ΡΡΠ½ΠΊΡΠΈΠΉ, ΡΠΊΠΎΠ½ΠΎΠΌΡΡΠΈΠΌ Π²ΡΠ΅ΠΌΡ Π½Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ.
Π ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°Π΅ΠΌΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΈ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ
ΠΠΎΠ΄ΡΠ»Ρ Forms ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ ΡΠΎΡΠΌΠ°ΠΌΠΈ. ΠΠ»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ GUI — ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π±ΡΠ΄ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ ΠΎΠ±ΡΠ΅ΠΊΡΡ ΠΊΠ»Π°ΡΡΠ° TForm;
ΠΠΎΠ΄ΡΠ»ΠΈ StdCtrls, Buttons, ExtCtrls Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠ½ΠΎΠΏΠΎΠΊ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°, ΡΠ΄ΠΎΠ±Π½ΠΎΠ³ΠΎ ΠΈ ΠΏΡΠΈΠ²ΡΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ;
ΠΠΎΠ΄ΡΠ»Ρ Controls Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΠΊΠ»Π°ΡΡΠΎΠΌ TControl, ΡΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΏΡΠΎΡΡΠΈΡΡ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΎΠ² ΡΠΎΠ±ΡΡΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΏΠΎ ΡΠΎΡΠΌΠ΅ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΡΡΠΈ;
ΠΠΎΠ΄ΡΠ»Ρ Dialogs Π΄Π»Ρ Π²ΡΠ·ΠΎΠ²Π° ΠΌΠΎΠ΄Π°Π»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ showmessage;
ΠΠΎΠ΄ΡΠ»Ρ Windows Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° FocusRect ΠΊΠ»Π°ΡΡΠ° TRect, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠ³ΠΎ Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° ΠΏΡΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΏΠΎ ΡΠΎΡΠΌΠ΅ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΡΡΠΈ;
ΠΠΎΠ΄ΡΠ»Ρ Graphics Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΠΊΠ»Π°ΡΡΠΎΠΌ TColor;
ΠΠΎΠ΄ΡΠ»ΠΈ ComCtrls ΠΈ Grids ΠΈΡΠΊΠ»ΡΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠ² ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ, ΠΎΡΡΠ°Π»ΡΠ½ΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ Π΅ΡΡΡ Π² ΡΠ°Π½Π΅Π΅ ΡΠΏΠΎΠΌΡΠ½ΡΡΡΡ ΠΌΠΎΠ΄ΡΠ»ΡΡ .
Π Π΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄Π° Drag and Drop Π΄Π»Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΏΠΎ ΡΠΎΡΠΌΠ΅;
Π Π΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠΈ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Π½Π° ΡΠΎΡΠΌΠ΅;
ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ² ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ²;
ΠΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΌ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ΅;
ΠΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅;
ΠΡΡ ΠΎΠ΄ ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
3. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π»ΠΎΠ³ΠΈΠΊΠΈ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ
Π ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°Π΅ΠΌΠΎΠΌ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ ΡΠ΅Π°Π»ΠΈΠ·ΡΠ΅ΡΡΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° ΠΏΠΎ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΌ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°ΠΌ Delphi. ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΈΠΌΠ΅Π΅Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°Ρ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ VLC Delphi, ΡΠ²ΠΈΠ΄Π΅ΡΡ ΠΏΡΠΈΠΌΠ΅Ρ ΡΡΠΈΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ, ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΠΈΡ ΡΠ²ΠΎΠΉΡΡΠ²Π°, Π° ΡΠ°ΠΊΠΆΠ΅ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ΅ΠΊΡΡΠ΅Π΅ ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ Π·Π°Π³ΡΡΠ·ΠΊΠΈ.
Π ΡΠ°ΠΉΠ», ΠΏΡΠΈ ΡΡΠ»ΠΎΠ²ΠΈΠΈ Π½Π°Π»ΠΈΡΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ Π½Π° ΡΠΎΡΠΌΠ΅, ΡΠΎΡ ΡΠ°Π½ΡΡΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π΅Π³ΠΎ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ ΠΈ ΡΠ°Π·ΠΌΠ΅ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ°. ΠΡΠΈ ΠΎΡΡΡΡΡΡΠ²ΠΈΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° Π² ΡΠ°ΠΉΠ» Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ Π½Π° ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π΅ ΠΌΠ΅ΡΡΠΎ Π½ΠΎΠ»Ρ. ΠΠ»Π³ΠΎΡΠΈΡΠΌ Π·Π°Π³ΡΡΠ·ΠΊΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Π² ΠΎΠ±ΡΠ°ΡΠ½ΠΎΠΌ ΠΏΠΎΡΡΠ΄ΠΊΠ΅.
ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ Π.
Π ΠΏΡΠΎΡΠ΅ΡΡΠ΅ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ Π±ΡΠ»ΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΏΡΠΈΠ²Π΅Π΄ΡΠ½Π½ΡΠ΅ Π² ΡΠ°Π±Π»ΠΈΡΠ΅ 1.
Π’Π°Π±Π»ΠΈΡΠ° 1.
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ.
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° | ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ | |
procedure ListBox1Click | ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΠΈΡΠΊΠ° ΡΠΎΠ·Π΄Π°ΡΡΡΡ ΠΈΠ»ΠΈ ΡΠ΄Π°Π»ΡΠ΅ΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ (ΠΏΡΠΈ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΌ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Π΅ CheckBox1 ΡΠ°ΠΊΠΆΠ΅ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ ΡΠΏΡΠ°Π²ΠΊΠ° ΠΎ Π½ΡΠΌ). | |
procedure SetProperties | ΠΡΠΈΡΠ²Π°Π΅Π²Π°Π΅Ρ ΡΠ²ΠΎΠΉΡΡΠ²Ρ Text ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Edit1, Edit2, Edit3, Edid4 ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²Π° Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°. | |
procedure ComponentMouseDown | ΠΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊ ΡΠΎΠ±ΡΡΠΈΡ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Π΄Π»Ρ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠ΅Π³ΠΎ Π΅Π³ΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ. | |
procedure ComponentMouseMove | ΠΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊ ΡΠΎΠ±ΡΡΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° ΠΏΠΎ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½Π½ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ ΡΠΎΡΠΌΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΡΡΠΈ. | |
procedure ComponentMouseUp | ΠΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊ ΡΠΎΠ±ΡΡΠΈΡ ΠΏΡΠ΅ΠΊΡΠ°ΡΠ΅ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ΠΏΠΎ ΡΠΎΡΠΌΠ΅. | |
procedure Button1Click | ΠΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΠΊ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΌΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΡΠ²ΠΎΠΉΡΡΠ², Π·Π°Π΄Π°Π½Π½ΡΡ Π² Edi1, Edit2, Edit3, Edid4. | |
procedure BitBtn4Click | ΠΡΡ ΠΎΠ΄ ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ | |
procedure BitBtn5Click | ΠΡΠ·ΠΎΠ² ΠΌΠΎΠ΄Π°Π»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΡ, ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡΠ΅ΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ | |
procedure BitBtn1Click | Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π² ΡΠ°ΠΉΠ» | |
procedure BitBtn3Click | ΠΠ½ΠΎΠΏΠΊΠ°, Π²ΡΠ·ΡΠ²Π°ΡΡΠ°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ clear_all | |
procedure BitBtn2Click | Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅ Π²ΡΠ΅Ρ ΡΠΎΠ·Π΄Π°Π½Π½ΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠ° ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Π½Π° ΡΠΎΡΠΌΠ΅ ΠΈΠ· ΡΠ°ΠΉΠ»Π° | |
procedure clear_all | Π£Π΄Π°Π»ΡΠ΅Ρ ΡΠΎΠ·Π΄Π°Π½Π½ΡΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΡ Ρ ΡΠΎΡΠΌΡ. | |
4. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°
Π ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ Delphi: Label, Button, BitBtn, Edit, ListBox, CheckBox, Shape, StatusBar.
Label — ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½ Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠ΅ΠΊΡΡΠ°, ΡΠΎ Π΅ΡΡΡ Π½Π°Π΄ΠΏΠΈΡΠ΅ΠΉ ΠΈ ΠΌΠ΅ΡΠΎΠΊ Π½Π° ΡΠΎΡΠΌΠ΅, ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π΅ ΠΌΠ΅Π½ΡΡΡΡΡ Π² ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Π²ΡΠ΅Π³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
Button ΠΈ BitBtn — ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ° ΡΠΎΠ±ΡΡΠΈΡ OnClick ΡΡΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°.
Edit — ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° — Π²ΡΠ²ΠΎΠ΄Π° ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ.
ListBox — Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌ Π΄Π»Ρ Π²ΡΠ±ΠΎΡΠ° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°, Ρ ΠΊΠΎΡΠΎΡΡΠΌ ΠΎΠ½ Ρ ΠΎΡΠ΅Π» Π±Ρ ΠΎΠ·Π½Π°ΠΊΠΎΠΌΠΈΡΡΡΡ.
CheckBox — Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΡΠΉ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ, ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΠΉ Π΄Π»Ρ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΠΈΠΏΠ° ΠΠ°/ΠΠ΅Ρ.
Shape — Π΄Π°Π½Π½ΡΠΉ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Π±ΡΠ» ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ Π΄Π»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎ ΠΎΠ³ΡΠ°Π½ΠΈΡΠΈΡΡ ΠΎΠ±Π»Π°ΡΡΡ, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΌΠΎΠΆΠ΅Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ°ΠΌΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ.
StatusBar — ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΠΊΡΡΡΠΎΡΠ° ΠΏΡΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΏΠΎ ΡΠΎΡΠΌΠ΅.
ΠΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΏΠΎΠΏΠ°Π΄Π°Π΅Ρ Π½Π° ΡΠ»Π΅Π΄ΡΡΡΡΡ ΡΠΎΡΠΌΡ:
Π ΠΈΡ. 1. ΠΠ°ΠΏΡΡΠΊ ΠΏΡΠΎΠ΅ΠΊΡΠ°.
ΠΠ°Π»Π΅Π΅, Π΅ΡΠ»ΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°Π» ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ «ΠΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ», ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΠΎΠ΄ΠΈΠ½ ΠΈΠ· ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠΏΠΈΡΠΊΠ° ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π·Π°ΠΏΡΡΠΊ ΠΌΠΎΠ΄Π°Π»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΡ Ρ ΠΊΡΠ°ΡΠΊΠΈΠΌ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ΠΌ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°, Π° ΡΠ°ΠΊΠΆΠ΅ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΡΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π½Π° ΡΠΎΡΠΌΠ΅. ΠΡΠ»ΠΈ ΠΏΠ΅ΡΠ΅ΠΊΠ»ΡΡΠ°ΡΠ΅Π»Ρ Π½Π΅ Π±ΡΠ» Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°Π½, ΡΠΎ ΠΌΠΎΠ΄Π°Π»ΡΠ½Π°Ρ ΡΠΎΡΠΌΠ° Π½Π΅ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ.
Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΉ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π ΠΈΡ. 2. ΠΠ°ΠΆΠ°ΡΠΈΠ΅ Π½Π° ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΠΈΡΠΊΠ°.
ΠΠΎΡΠ²ΠΈΠ²ΡΠΈΠ΅ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΡΡΠΈ ΠΏΠΎ ΡΠΎΡΠΌΠ΅ Π² ΡΠ°Π·ΡΠ΅ΡΠ΅Π½Π½ΡΡ ΠΏΡΠ΅Π΄Π΅Π»Π°Ρ , ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ ΠΈΡ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΠΏΡΠΈΠΌΠ΅Π½ΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ Π½Π° ΠΊΠΏΠΎΠΏΠΊΡ «Apply». ΠΡΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΠΊΡΡΡΠΎΡΠ° Π ΠΈΡ. 3. ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΠ²ΠΎΠΉΡΡΠ² ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ².
ΠΡΠΈ ΡΠ°Π±ΠΎΡΠ΅ Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΈΠ»ΠΈ Π·Π°Π³ΡΡΠ·ΠΈΡΡ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΈ ΡΠ²ΠΎΠΉΡΡΠ²Π° Π½Π°Ρ ΠΎΠ΄ΡΡΠΈΡ ΡΡ Π½Π° ΡΠΎΡΠΌΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΊΠ»ΠΈΠΊΠ½ΡΠ² Π½Π° ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠ°Ρ «Save» ΠΈ «Load». ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΠ°ΠΊΠΆΠ΅ ΠΌΠΎΠΆΠ΅Ρ ΠΎΡΠΈΡΡΠΈΡΡ ΠΏΠΎΠ»Π΅ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ «Clear» ΠΎΡ Π²ΡΠ΅Ρ ΡΠΎΠ·Π΄Π°Π½Π½ΡΡ ΠΈΠΌ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ ΠΈΠ»ΠΈ Π²ΡΡΡΠ½ΡΡ ΡΠ΄Π°Π»ΡΡΡ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΈΠ· Π½ΠΈΡ ΠΏΠΎΠ²ΡΠΎΡΠ½ΠΎ Π½Π°ΠΆΠ°Π² Π½Π° ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΡΠΏΠΈΡΠΊΠ°; ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΠ°ΠΌΠΎΠΌ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ «About»; Π²ΡΠΉΡΠΈ ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π°ΠΆΠ°Π² Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «Quit» .
Π ΠΈΡ. 4. Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅.
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
Π¦Π΅Π»ΡΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ»ΠΎ ΠΈΠ·ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi ΠΈ ΡΠ»ΡΡΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ Π·Π°Π΄Π°Π½ΠΈΠΉ.
Π Ρ ΠΎΠ΄Π΅ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ»ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠ΅Π΅ ΠΏΠΎΠ»ΡΡΠ°ΡΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°Ρ Delphi. Π Π½ΡΠΌ Π±ΡΠ» ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½ ΠΌΠ΅ΡΠΎΠ΄ Drag and Drop, ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΈ Π·Π°Π³ΡΡΠ·ΠΊΠ° Π΄Π°Π½Π½ΡΡ , ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ ΠΊΡΡΡΠΎΡΠ°, ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΡΠ²ΠΎΠΉΡΡΠ² ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ ΠΎΠ±ΡΠ΅ΠΊΡΡ ΠΊΠ»Π°ΡΡΠΎΠ² TForm, TLabel, TEdit, TButton, TBitBtn, TShape, TCheckBox, TListBox, TStatusBar, TColorBox. ΠΠ»Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΠΈΡΡ ΠΌΠΎΠ΄Π°Π»ΡΠ½ΡΠ΅ ΡΠΎΡΠΌΡ, ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Π² ΠΊΠΎΡΠΎΡΡΠ΅ Π·Π°Π³ΡΡΠΆΠ°Π΅ΡΡΡ ΠΈΠ· ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΡΠ°ΠΉΠ»Π°.
1. ΠΡΡ Π°Π½Π³Π΅Π»ΡΡΠΊΠΈΠΉ Π. Π―. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² Delphi: Π£ΡΠ΅Π±Π½ΠΈΠΊ ΠΏΠΎ ΠΊΠ»Π°ΡΡΠΈΡΠ΅ΡΠΊΠΈΠΌ Π²Π΅ΡΡΠΈΡΠΌ Delphi. — Π.: ΠΠΈΠ½ΠΎΠΌ, 2011.
2. ΠΠΌΠΈΡΡΠΈΠΉ ΠΡΠΈΠΏΠΎΠ². Delphi. ΠΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅. — 2008
3. Π€Π°ΡΠΎΠ½ΠΎΠ² Π. Π. Delphi. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° ΡΠ·ΡΠΊΠ΅ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ: Π£ΡΠ΅Π±Π½ΠΈΠΊ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ² — Π‘ΠΏΠ±.: ΠΠΈΠ΄Π΅Ρ, 2010.
4. Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΡΠ½ΠΎΠ²Ρ Delphi URL — http://delphibasics.ru/
5. Π‘Π²ΠΎΠ±ΠΎΠ΄Π½Π°Ρ ΠΈΠ½ΡΠ΅ΡΠ½Π΅Ρ-ΡΠ½ΡΠΈΠΊΠ»ΠΎΠΏΠ΅Π΄ΠΈΡ Wikipedia. URL — http://ru. wikipedia.org/
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π (ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎΠ΅)
ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
unit main;
interface
uses
Windows, SysUtils, Graphics, Controls, Forms, Dialogs, Grids,
Buttons, StdCtrls, ComCtrls, ExtCtrls, Classes;
type
TForm1 = class (TForm)
ListBox1: TListBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Shape1: TShape;
Shape2: TShape;
CheckBox1: TCheckBox;
Label6: TLabel;
StatusBar1: TStatusBar;
ColorBox1: TColorBox;
Label7: TLabel;
procedure ListBox1Click (Sender: TObject);
procedure SetProperties (Sender: TObject);
procedure ComponentMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ComponentMouseMove (Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure ComponentMouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button1Click (Sender: TObject);
procedure BitBtn4Click (Sender: TObject);
procedure BitBtn5Click (Sender: TObject);
procedure BitBtn1Click (Sender: TObject);
procedure BitBtn3Click (Sender: TObject);
procedure BitBtn2Click (Sender: TObject);
procedure clear_all;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *. dfm}
var
button: TButton; // 1
textBox: TEdit; // 2
checkBox: TCheckBox; // 3
radio: TRadioButton; // 4
panel: TPanel; // 5
progress: TProgressBar; // 6
bitBtn: TBitBtn; // 7
labelBox: TLabel; // 8
labeledEdit: TLabeledEdit; // 9
groupBox: TGroupBox; // 10
memoBox: TMemo; // 11
speedBtn: TSpeedButton; // 12
shape: TShape; // 13
staticText: TStaticText; // 14
stringGrid: TStringGrid; // 15
Dragg: boolean;
XOffset, YOffset: integer;
FocusRect: TRect;
Selected_Component: TControl;
last: integer;
procedure TForm1. SetProperties (Sender: TObject);
begin
Edit1. Text: = IntToStr ((Sender as TControl). Left);
Edit2. Text: = IntToStr ((Sender as TControl). Top);
Edit3. Text: = IntToStr ((Sender as TControl). Height);
Edit4. Text: = IntToStr ((Sender as TControl). Width);
case last of
1: ColorBox1. Selected: =button. Font. Color;
2: ColorBox1. Selected: =textBox. Font. Color;
// 3:
// 4:
5: ColorBox1. Selected: =panel. Font. Color;
// 6:
7: ColorBox1. Selected: =bitBtn. Font. Color;
8: ColorBox1. Selected: =labelBox. Font. Color;
9: ColorBox1. Selected: =labeledEdit. Font. Color;
10: ColorBox1. Selected: =groupBox. Font. Color;
11: ColorBox1. Selected: =memoBox. Font. Color;
// 12:
// 13:
// 14:
// 15:
end;
end;
procedure TForm1. ListBox1Click (Sender: TObject);
var x, y: integer; h: textfile; shelp: AnsiString;
begin
x: = 200;
y: = 200;
if listbox1. Selected then begin // Button
if checkbox1. Checked then begin
AssignFile (h,'h1. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (button)) then begin
button: = TButton. Create (Form1);
button. Parent: = Form1;
button. Left: = x;
button. Top: = y;
button. Visible: = True;
last: =1;
button. Height: = 30;
button. Width: = 80;
button. Name: = 'Button';
button. OnMouseDown: = ComponentMouseDown;
button. OnMouseMove: = ComponentMouseMove;
button. OnMouseUp: = ComponentMouseUp;
SetProperties (button);
end
else begin button. Destroy; button: =nil; exit; end; end;
if listbox1. Selected then begin // Edit
if checkbox1. Checked then begin
AssignFile (h,'h2. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (textBox)) then begin
textBox: = TEdit. Create (Form1);
textBox. Parent: = Form1;
textBox. Left: = x;
textBox. Top: = y;
textBox. Visible: = True;
last: =2;
textBox. Height: = 30;
textBox. Width: = 60;
textBox. Name: = 'Edit';
textBox. OnMouseDown: = ComponentMouseDown;
textBox. OnMouseMove: = ComponentMouseMove;
textBox. OnMouseUp: = ComponentMouseUp;
SetProperties (textBox);
end
else begin textBox. Destroy; textBox: =nil; exit; end; end;
if listbox1. Selected then begin // CheckBox
if checkbox1. Checked then begin
AssignFile (h,'h3. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (checkBox)) then begin
checkBox: = TCheckBox. Create (Form1);
checkBox. Parent: = Form1;
checkBox. Left: = x;
checkBox. Top: = y;
checkBox. Visible: = True;
last: =3;
checkBox. Height: = 30;
checkBox. Width: = 80;
checkBox. Name: = 'CheckBox';
checkBox. OnMouseDown: = ComponentMouseDown;
checkBox. OnMouseMove: = ComponentMouseMove;
checkBox. OnMouseUp: = ComponentMouseUp;
SetProperties (checkBox);
end
else begin checkBox. Destroy; checkBox: =nil; exit; end; end;
if listbox1. Selected then begin // RadioButton
if checkbox1. Checked then begin
AssignFile (h,'h4. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (radio)) then begin
radio: = TRadioButton. Create (Form1);
radio. Parent: = Form1;
radio. Left: = x;
radio. Top: = y;
radio. Visible: = True;
last: =4;
radio. Height: = 30;
radio. Width: = 80;
radio. Name: = 'RadioButton';
radio. OnMouseDown: = ComponentMouseDown;
radio. OnMouseMove: = ComponentMouseMove;
radio. OnMouseUp: = ComponentMouseUp;
SetProperties (radio);
end
else begin radio. Destroy; radio: =nil; exit; end; end;
if listbox1. Selected then begin // Panel
if checkbox1. Checked then begin
AssignFile (h,'h5. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (panel)) then begin
panel: = TPanel. Create (Form1);
panel. Parent: = Form1;
panel. Left: = x;
panel. Top: = y;
panel. Visible: = True;
last: =5;
panel. Height: = 30;
panel. Width: = 80;
panel. Name: = 'Panel';
panel. OnMouseDown: = ComponentMouseDown;
panel. OnMouseMove: = ComponentMouseMove;
panel. OnMouseUp: = ComponentMouseUp;
SetProperties (panel);
end
else begin panel. Destroy; panel: =nil; exit; end; end;
if listbox1. Selected then begin // ProgressBar
if checkbox1. Checked then begin
AssignFile (h,'h6. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (progress)) then begin
progress: = TProgressBar. Create (Form1);
progress. Parent: = Form1;
progress. Left: = x;
progress. Top: = y;
progress. Visible: = True;
last: =6;
progress. Height: = 30;
progress. Width: = 80;
progress. Name: = 'ProgressBar';
progress. OnMouseDown: = ComponentMouseDown;
progress. OnMouseMove: = ComponentMouseMove;
progress. OnMouseUp: = ComponentMouseUp;
SetProperties (progress);
end
else begin progress. Destroy; progress: =nil; exit; end; end;
if listbox1. Selected then begin // BitBtn
if checkbox1. Checked then begin
AssignFile (h,'h7. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (bitBtn)) then begin
bitBtn: = TBitBtn. Create (Form1);
bitBtn. Parent: = Form1;
bitBtn. Left: = x;
bitBtn. Top: = y;
bitBtn. Visible: = True;
last: =7;
bitBtn. Height: = 30;
bitBtn. Width: = 80;
bitBtn. Name: = 'BitButton';
bitBtn. OnMouseDown: = ComponentMouseDown;
bitBtn. OnMouseMove: = ComponentMouseMove;
bitBtn. OnMouseUp: = ComponentMouseUp;
SetProperties (bitBtn);
end
else begin bitBtn. Destroy; bitBtn: =nil; exit; end; end;
if listbox1. Selected then begin // Label
if checkbox1. Checked then begin
AssignFile (h,'h8. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (labelBox)) then begin
labelBox: = TLabel. Create (Form1);
labelBox. Parent: = Form1;
labelBox. Left: = x;
labelBox. Top: = y;
labelBox. Visible: = True;
last: =8;
labelBox. Height: = 130;
labelBox. Width: = 80;
labelBox. Name: = 'Label';
labelBox. OnMouseDown: = ComponentMouseDown;
labelBox. OnMouseMove: = ComponentMouseMove;
labelBox. OnMouseUp: = ComponentMouseUp;
SetProperties (labelBox);
end
else begin labelBox. Destroy; labelBox: =nil; exit; end; end;
if listbox1. Selected then begin // labeledEdit
if checkbox1. Checked then begin
AssignFile (h,'h9. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (labeledEdit)) then begin
labeledEdit: = TLabeledEdit. Create (Form1);
labeledEdit. Parent: = Form1;
labeledEdit. Left: = x + 60;
labeledEdit. Top: = y;
labeledEdit. Visible: = True;
last: =9;
labeledEdit. Height: = 30;
labeledEdit. Width: = 80;
labeledEdit. Name: = 'LabeledEdit';
labeledEdit. EditLabel. Caption: = 'LabeledEdit';
labeledEdit. OnMouseDown: = ComponentMouseDown;
labeledEdit. OnMouseMove: = ComponentMouseMove;
labeledEdit. OnMouseUp: = ComponentMouseUp;
SetProperties (labeledEdit);
end
else begin labeledEdit. Destroy; labeledEdit: =nil; exit; end; end;
if listbox1. Selected then begin // GroupBox
if checkbox1. Checked then begin
AssignFile (h,'h10. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (groupBox)) then begin
groupBox: = TGroupBox. Create (Form1);
groupBox. Parent: = Form1;
groupBox. Left: = x;
groupBox. Top: = y;
groupBox. Visible: = True;
last: =10;
groupBox. Height: = 130;
groupBox. Width: = 80;
groupBox. Name: = 'GroupBox';
groupBox. OnMouseDown: = ComponentMouseDown;
groupBox. OnMouseMove: = ComponentMouseMove;
groupBox. OnMouseUp: = ComponentMouseUp;
SetProperties (groupBox);
end
else begin groupBox. Destroy; groupBox: =nil; exit; end; end;
if listbox1. Selected then begin // Memo
if checkbox1. Checked then begin
AssignFile (h,'h11. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (memoBox)) then begin
memoBox: = TMemo. Create (Form1);
memoBox. Parent: = Form1;
memoBox. Left: = x;
memoBox. Top: = y;
memoBox. Visible: = True;
last: =11;
memoBox. Height: = 80;
memoBox. Width: = 80;
memoBox. Name: = 'Memo';
memoBox. OnMouseDown: = ComponentMouseDown;
memoBox. OnMouseMove: = ComponentMouseMove;
memoBox. OnMouseUp: = ComponentMouseUp;
SetProperties (memoBox);
end
else begin memoBox. Destroy; memoBox: =nil; exit; end; end;
if listbox1. Selected then begin // SpeedButton
if checkbox1. Checked then begin
AssignFile (h,'h12. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (speedBtn)) then begin
speedBtn: = TSpeedButton. Create (Form1);
speedBtn. Parent: = Form1;
speedBtn. Left: = x;
speedBtn. Top: = y;
speedBtn. Visible: = True;
last: =12;
speedBtn. Height: = 30;
speedBtn. Width: = 80;
speedBtn. Name: = 'SpeedButton';
speedBtn. OnMouseDown: = ComponentMouseDown;
speedBtn. OnMouseMove: = ComponentMouseMove;
speedBtn. OnMouseUp: = ComponentMouseUp;
SetProperties (speedBtn);
end
else begin speedBtn. Destroy; speedBtn: =nil; exit; end; end;
if listbox1. Selected then begin // Shape
if checkbox1. Checked then begin
AssignFile (h,'h13. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (shape)) then begin
shape: = TShape. Create (Form1);
shape. Parent: = Form1;
shape. Left: = x;
shape. Top: = y;
shape. Visible: = True;
last: =13;
shape. Height: = 30;
shape. Width: = 80;
shape. Name: = 'Shape';
shape. OnMouseDown: = ComponentMouseDown;
shape. OnMouseMove: = ComponentMouseMove;
shape. OnMouseUp: = ComponentMouseUp;
SetProperties (shape);
end
else begin shape. Destroy; shape: =nil; exit; end; end;
if listbox1. Selected then begin // staticText
if checkbox1. Checked then begin
AssignFile (h,'h14. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (staticText)) then begin
staticText: = TStaticText. Create (Form1);
staticText. Parent: = Form1;
staticText. Left: = x;
staticText. Top: = y;
staticText. Visible: = True;
last: =14;
staticText. Height: = 130;
staticText. Width: = 80;
staticText. Name: = 'StaticText';
staticText. OnMouseDown: = ComponentMouseDown;
staticText. OnMouseMove: = ComponentMouseMove;
staticText. OnMouseUp: = ComponentMouseUp;
SetProperties (staticText);
end
else begin staticText. Destroy; staticText: =nil; exit; end; end;
if listbox1. Selected then begin // stringGrid
if checkbox1. Checked then begin
AssignFile (h,'h15. txt');
reset (h);
read (h, shelp);
showmessage (shelp);
closeFile (h);
end;
if not (Assigned (stringGrid)) then begin
stringGrid: = TStringGrid. Create (Form1);
stringGrid. Parent: = Form1;
stringGrid. Left: = x;
stringGrid. Top: = y + 50;
stringGrid. Visible: = True;
last: =15;
stringGrid. Height: = 150;
stringGrid. Width: = 200;
stringGrid. Name: = 'StringGrid';
stringGrid. Col: =3;
stringGrid. Row: =2;
stringGrid. OnMouseDown: = ComponentMouseDown;
stringGrid. OnMouseMove: = ComponentMouseMove;
stringGrid. OnMouseUp: = ComponentMouseUp;
SetProperties (stringGrid);
end
else begin stringGrid. Destroy; stringGrid: =nil; exit; end; end;
end;
procedure TForm1. componentMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Dragg: = True;
XOffset: = X;
YOffset: = Y;
if Sender. ClassType = TButton then begin colorbox1. Enabled: =false; last: =1;
Selected_Component: = Sender as TButton; end;
if Sender. ClassType = TEdit then begin colorbox1. Enabled: =true; last: =2;
Selected_Component: = Sender as TEdit; end;
if Sender. ClassType = TCheckBox then begin colorbox1. Enabled: =false; last: =3;
Selected_Component: = Sender as TCheckBox; end;
if Sender. ClassType = TRadioButton then begin colorbox1. Enabled: =false; last: =4;
Selected_Component: = Sender as TRadioButton; end;
if Sender. ClassType = TPanel then begin colorbox1. Enabled: =true; last: =5;
Selected_Component: = Sender as TPanel; end;
if Sender. ClassType = TProgressBar then begin colorbox1. Enabled: =false; last: =6;
Selected_Component: = Sender as TProgressBar; end;
if Sender. ClassType = TBitBtn then begin colorbox1. Enabled: =true; last: =7;
Selected_Component: = Sender as TBitBtn; end;
if Sender. ClassType = TLabel then begin colorbox1. Enabled: =true; last: =8;
Selected_Component: = Sender as TLabel; end;
if Sender. ClassType = TLabeledEdit then begin colorbox1. Enabled: =true; last: =9;
Selected_Component: = Sender as TLabeledEdit; end;
if Sender. ClassType = TGroupBox then begin colorbox1. Enabled: =false; last: =10;
Selected_Component: = Sender as TGroupBox; end;
if Sender. ClassType = TMemo then begin colorbox1. Enabled: =true; last: =11;
Selected_Component: = Sender as TMemo; end;
if Sender. ClassType = TSpeedButton then begin colorbox1. Enabled: =false; last: =12;
Selected_Component: = Sender as TSpeedButton; end;
if Sender. ClassType = TShape then begin colorbox1. Enabled: =false; last: =13;
Selected_Component: = Sender as TShape; end;
if Sender. ClassType = TStaticText then begin colorbox1. Enabled: =false; last: =14;
Selected_Component: = Sender as TStaticText; end;
if Sender. ClassType = TStringGrid then begin colorbox1. Enabled: =false; last: =15;
Selected_Component: = Sender as TStringGrid; end;
SetProperties (Selected_Component);
with Selected_Component do
FocusRect: = Rect (Left, Top, Left + Width, Top + Height);
Canvas. DrawFocusRect (FocusRect);
end;
procedure TForm1. componentMouseMove (Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Dragg then
begin
Canvas. DrawFocusRect (FocusRect);
with FocusRect do
begin
Left: = (Selected_Component. Left + X) — XOffset;
Top: = (Selected_Component. Top + Y) — YOffset;
Right: = Selected_Component. Width + Left;
Bottom: = Selected_Component. Height + Top;
end;
Canvas. DrawFocusRect (FocusRect);
StatusBar1. SimpleText: = 'x = ' + IntToStr ((Selected_Component. Left + X) — XOffset) +
' y = ' + IntToStr ((Selected_Component. Top + Y) — YOffset);
end;
end;
procedure TForm1. componentMouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Dragg then
begin
Canvas. DrawFocusRect (FocusRect); // Erase Focus Rect
Dragg: = False;
with Selected_Component do
begin
Left: = (Left + X) — XOffset;
Top: = (Top + Y) — YOffset;
if Left<120 then Left: =120;
if Left>900-Width then Left: =900-Width;
if Top<65 then Top: =65;
if Top>440-Height-20 then Top: =440-Height-20;
end;
SetProperties (Selected_Component);
end;
end;
procedure TForm1. Button1Click (Sender: TObject);
var vari: integer;
begin
if (Edit1. Text='') or (Edit2. Text='') or (Edit3. Text='') or (Edit1. Text='') then begin showmessage ('ΠΡΠ±Π΅ΡΠΈΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ! '); Exit; end
else begin
if (not (TryStrToInt (Edit1. Text, vari))) or (not (TryStrToInt (Edit2. Text, vari))) or (not (TryStrToInt (Edit3. Text, vari))) or (not (TryStrToInt (Edit1. Text, vari))) then begin showmessage ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠ΅Π»ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ! '); Exit; end;
Selected_Component. Left: =StrToInt (Edit1. Text);
Selected_Component. Top: =StrToInt (Edit2. Text);
Selected_Component. Height: =StrToInt (Edit3. Text);
Selected_Component. Width: =StrToInt (Edit4. Text);
if Selected_Component. Left<120 then Selected_Component. Left: =120;
if Selected_Component. Left>900-Selected_Component. Width then Selected_Component. Left: =900-Selected_Component. Width;
if Selected_Component. Top<65 then Selected_Component. Top: =65;
if Selected_Component. Top>440-Selected_Component. Height-20 then Top: =440-Selected_Component. Height-20;
case last of
2: begin textBox. Font. Color: =ColorBox1. Selected; end;
5: begin panel. Font. Color: =ColorBox1. Selected; end;
7: begin bitBtn. Font. Color: =ColorBox1. Selected; end;
8: begin labelBox. Font. Color: =ColorBox1. Selected; end;
9: begin labeledEdit. Font. Color: =ColorBox1. Selected; end;
11: begin memoBox. Font. Color: =ColorBox1. Selected; end;
else ColorBox1. enabled: =false;
end;
end;
SetProperties (Selected_Component);
end;
procedure TForm1. BitBtn4Click (Sender: TObject);
begin
Form1. Close;
end;
procedure TForm1. BitBtn1Click (Sender: TObject);
var f: textfile;
begin
AssignFile (f,{GetCurrentDir+}'save. txt');
Rewrite (f);
if Assigned (button) then // 1
begin
writeln (f, button. Top);
writeln (f, button. Left);
writeln (f, button. Height);
writeln (f, button. Width);
end
else writeln (f,'0');
if (Assigned (textBox)) and (textBox. Visible) then // 2
begin
writeln (f, textBox. Top);
writeln (f, textBox. Left);
writeln (f, textBox. Height);
writeln (f, textBox. Width);
writeln (f, textBox. Font. Color);
end
else writeln (f,'0');
if (Assigned (checkBox)) and (checkBox. Visible) then // 3
begin
writeln (f, checkBox. Top);
writeln (f, checkBox. Left);
writeln (f, checkBox. Height);
writeln (f, checkBox. Width);
end
else writeln (f,'0');
if (Assigned (radio)) and (radio. Visible) then // 4
begin
writeln (f, radio. Top);
writeln (f, radio. Left);
writeln (f, radio. Height);
writeln (f, radio. Width);
end
else writeln (f,'0');
if (Assigned (panel)) and (panel. Visible) then // 5
begin
writeln (f, panel. Top);
writeln (f, panel. Left);
writeln (f, panel. Height);
writeln (f, panel. Width);
writeln (f, panel. Font. Color);
end
else writeln (f,'0');
if (Assigned (progress)) and (progress. Visible) then // 6
begin
writeln (f, progress. Top);
writeln (f, progress. Left);
writeln (f, progress. Height);
writeln (f, progress. Width);
end
else writeln (f,'0');
if (Assigned (bitBtn)) and (bitBtn. Visible) then // 7
begin
writeln (f, bitBtn. Top);
writeln (f, bitBtn. Left);
writeln (f, bitBtn. Height);
writeln (f, bitBtn. Width);
writeln (f, bitBtn. Font. Color);
end
else writeln (f,'0');
if (Assigned (labelBox)) and (labelBox. Visible) then // 8
begin
writeln (f, labelBox. Top);
writeln (f, labelBox. Left);
writeln (f, labelBox. Height);
writeln (f, labelBox. Width);
writeln (f, labelBox. Font. Color);
end
else writeln (f,'0');
if (Assigned (labeledEdit)) and (labeledEdit. Visible) then // 9
begin
writeln (f, labeledEdit. Top);
writeln (f, labeledEdit. Left);
writeln (f, labeledEdit. Height);
writeln (f, labeledEdit. Width);
writeln (f, labeledEdit. Font. Color);
end
else writeln (f,'0');
if (Assigned (groupBox)) and (groupBox. Visible) then // 10
begin
writeln (f, groupBox. Top);
writeln (f, groupBox. Left);
writeln (f, groupBox. Height);
writeln (f, groupBox. Width);
end
else writeln (f,'0');
if (Assigned (memoBox)) and (memoBox. Visible) then // 11
begin
writeln (f, memoBox. Top);
writeln (f, memoBox. Left);
writeln (f, memoBox. Height);
writeln (f, memoBox. Width);
writeln (f, memoBox. Font. Color);
end
else writeln (f,'0');
if (Assigned (speedBtn)) and (speedBtn. Visible) then // 12
begin
writeln (f, speedBtn. Top);
writeln (f, speedBtn. Left);
writeln (f, speedBtn. Height);
writeln (f, speedBtn. Width);
end
else writeln (f,'0');
if (Assigned (shape)) and (shape. Visible) then // 13
begin
writeln (f, shape. Top);
writeln (f, shape. Left);
writeln (f, shape. Height);
writeln (f, shape. Width);
end
else writeln (f,'0');
if (Assigned (staticText)) and (staticText. Visible) then // 14
begin
writeln (f, staticText. Top);
writeln (f, staticText. Left);
writeln (f, staticText. Height);
writeln (f, staticText. Width);
end
else writeln (f,'0');
if (Assigned (stringGrid)) and (stringGrid. Visible) then // 15
begin
writeln (f, stringGrid. Top);
writeln (f, stringGrid. Left);
writeln (f, stringGrid. Height);
writeln (f, stringGrid. Width);
end
else writeln (f,'0');
CloseFile (f);
end;
procedure TForm1. clear_all;
begin
Edit1. Text: =''; Edit2. Text: =''; Edit3. Text: =''; Edit4. Text: ='';
if Assigned (button) then begin button. Destroy; button: =nil; end;
if Assigned (textBox) then begin textBox. Destroy; textBox: =nil; end;
if Assigned (checkBox) then begin checkBox. Destroy; checkBox: =nil; end;
if Assigned (radio) then begin radio. Destroy; radio: =nil; end;
if Assigned (panel) then begin panel. Destroy; panel: =nil; end;
if Assigned (progress) then begin progress. Destroy; progress: =nil; end;
if Assigned (bitBtn) then begin bitBtn. Destroy; bitBtn: =nil; end; // 7
if Assigned (labelBox) then begin labelBox. Destroy; labelBox: =nil; end;
if Assigned (labeledEdit) then begin labeledEdit. Destroy; labeledEdit: =nil; end;
if Assigned (groupBox) then begin groupBox. Destroy; groupBox: =nil; end; // 10
if Assigned (memoBox) then begin memoBox. Destroy; memoBox: =nil; end; // 11
if Assigned (speedBtn) then begin speedBtn. Destroy; speedBtn: =nil; end; // 12
if Assigned (shape) then begin shape. Destroy; shape: =nil; end; // 13
if Assigned (staticText) then begin staticText. Destroy; staticText: =nil; end; // 14
if Assigned (stringGrid) then begin stringGrid. Destroy; stringGrid: =nil; end; // 15
end;
procedure TForm1. BitBtn3Click (Sender: TObject);
begin
clear_all;
end;
procedure TForm1. BitBtn2Click (Sender: TObject);
var f: textfile; tmp: integer; sig: TColor;
begin
clear_all;
AssignFile (f,{GetCurrentDir+}'save. txt');
Reset (f);
readln (f, tmp);
if tmp<>0 then begin // button
if NOT (Assigned (button)) then begin
button: = TButton. Create (Form1);
button. Parent: = Form1;
button. OnMouseDown: = ComponentMouseDown;
button. OnMouseMove: = ComponentMouseMove;
button. OnMouseUp: = ComponentMouseUp;
button. Name: = 'Button';
end;
button. Top: =tmp;
readln (f, tmp);
button. Left: =tmp;
readln (f, tmp);
button. Height: =tmp;
readln (f, tmp);
button. Width: =tmp;
// SetProperties (button);
button. Visible: =true;
end;
readln (f, tmp);
if tmp<>0 then begin // textBox
if NOT (Assigned (textBox)) then begin
textBox: = TEdit. Create (Form1);
textBox. Parent: = Form1;
textBox. OnMouseDown: = ComponentMouseDown;
textBox. OnMouseMove: = ComponentMouseMove;
textBox. OnMouseUp: = ComponentMouseUp;
textBox. Name: = 'TextBox';
end;
textBox. Top: =tmp;
readln (f, tmp);
textBox. Left: =tmp;
readln (f, tmp);
textBox. Height: =tmp;
readln (f, tmp);
textBox. Width: =tmp;
readln (f, sig);
textBox. Font. Color: =sig;
// SetProperties (textBox);
textBox. Visible: =true;
end;
readln (f, tmp);
if tmp<>0 then begin // checkBox
if NOT (Assigned (checkBox)) then begin
checkBox: = TCheckBox. Create (Form1);
checkBox. Parent: = Form1;
checkBox. OnMouseDown: = ComponentMouseDown;
checkBox. OnMouseMove: = ComponentMouseMove;
checkBox. OnMouseUp: = ComponentMouseUp;
checkBox. Name: = 'CheckBox';
end;
checkBox. Top: =tmp;
readln (f, tmp);
checkBox. Left: =tmp;
readln (f, tmp);
checkBox. Height: =tmp;
readln (f, tmp);
checkBox. Width: =tmp;
// SetProperties (checkBox);
checkBox. Visible: =true;
end;
readln (f, tmp);
if tmp<>0 then begin // radio
if NOT (Assigned (radio)) then begin
radio: = TRadioButton. Create (Form1);
radio. Parent: = Form1;
radio. OnMouseDown: = ComponentMouseDown;
radio. OnMouseMove: = ComponentMouseMove;
radio. OnMouseUp: = ComponentMouseUp;
radio. Name: = 'RadioButton';
end;
radio. Top: =tmp;
readln (f, tmp);
radio. Left: =tmp;
readln (f, tmp);
radio. Height: =tmp;
readln (f, tmp);
radio. Width: =tmp;
// SetProperties (radio);
radio. Visible: =true;
end;
readln (f, tmp);
if tmp<>0 then begin // panel
if NOT (Assigned (panel)) then begin
panel: = TPanel. Create (Form1);
panel. Parent: = Form1;
panel. OnMouseDown: = ComponentMouseDown;
panel. OnMouseMove: = ComponentMouseMove;
panel. OnMouseUp: = ComponentMouseUp;
panel. Name: = 'Panel';
end;
panel. Top: =tmp;
readln (f, tmp);
panel. Left: =tmp;
readln (f, tmp);
panel. Height: =tmp;
readln (f, tmp);
panel. Width: =tmp;
readln (f, sig);
panel. Font. Color: =sig;
// SetProperties (panel);
panel. Visible: =true;
end;
readln (f, tmp);
if tmp<>0 then begin // progress
if NOT (Assigned (progress)) then begin
progress: = TProgressBar. Create (Form1);
progress. Parent: = Form1;
progress. OnMouseDown: = ComponentMouseDown;
progress. OnMouseMove: = ComponentMouseMove;
progress. OnMouseUp: = ComponentMouseUp;
progress. Name: = 'ProgressBar';
end;
progress. Top: =tmp;
readln (f, tmp);
progress. Left: =tmp;
readln (f, tmp);
progress. Height: =tmp;
readln (f, tmp);
progress. Width: =tmp;
// SetProperties (progress);
progress. Visible: =true;
end;
readln (f, tmp);
if tmp<>0 then begin // bitBtn
if NOT (Assigned (bitBtn)) then begin
bitBtn: = TBitBtn. Create (Form1);
bitBtn. Parent: = Form1;
bitBtn. OnMouseDown: = ComponentMouseDown;
bitBtn. OnMouseMove: = ComponentMouseMove;
bitBtn. OnMouseUp: = ComponentMouseUp;
bitBtn. Name: = 'BitBtn';
end;
bitBtn. Top: =tmp;
readln (f, tmp);
bitBtn. Left: =tmp;
readln (f, tmp);
bitBtn. Height: =tmp;
readln (f, tmp);
bitBtn. Width: =tmp;
readln (f, sig);
bitBtn. Font. Color: =sig;
// SetProperties (bitBtn);
bitBtn. Visible: =true;
end;
readln (f, tmp);
if tmp<>0 then begin // labelBox
if NOT (Assigned (labelBox)) then begin
labelBox: = TLabel. Create (Form1);
labelBox. Parent: = Form1;
labelBox. OnMouseDown: = ComponentMouseDown;
labelBox. OnMouseMove: = ComponentMouseMove;
labelBox. OnMouseUp: = ComponentMouseUp;
labelBox. Name: = 'Label';
end;
labelBox. Top: =tmp;
readln (f, tmp);
labelBox. Left: =tmp;
readln (f, tmp);
labelBox. Height: =tmp;
readln (f, tmp);
labelBox. Width: =tmp;
readln (f, sig);
labelbox. Font. Color: =sig;
// SetProperties (labelBox);
labelBox. Visible: =true;
end;
readln (f, tmp);
if tmp<>0 then begin // labeledEdit
if NOT (Assigned (labeledEdit)) then begin
labeledEdit: = TLabeledEdit. Create (Form1);
labeledEdit. Parent: = Form1;
labeledEdit. OnMouseDown: = ComponentMouseDown;
labeledEdit. OnMouseMove: = ComponentMouseMove;
labeledEdit. OnMouseUp: = ComponentMouseUp;
labeledEdit. Name: = 'LabeledEdit';
end;
labeledEdit. Top: =tmp;
readln (f, tmp);
labeledEdit. Left: =tmp;
readln (f, tmp);
labeledEdit. Height: =tmp;
readln (f, tmp);
labeledEdit. Width: =tmp;
readln (f, sig);
labeledEdit. Font. Color: =sig;
// SetProperties (labeledEdit);
labeledEdit. Visible: =true;
end;
readln (f, tmp);
if tmp<>0 then begin // groupBox
if NOT (Assigned (groupBox)) then begin
groupBox: = TGroupBox. Create (Form1);
groupBox. Parent: = Form1;
groupBox. OnMouseDown: = ComponentMouseDown;
groupBox. OnMouseMove: = ComponentMouseMove;
groupBox. OnMouseUp: = ComponentMouseUp;
groupBox. Name: = 'GroupBox';
end;
groupBox. Top: =tmp;
readln (f, tmp);
groupBox. Left: =tmp;
readln (f, tmp);
groupBox. Height: =tmp;
readln (f, tmp);
groupBox. Width: =tmp;
// SetProperties (groupBox);
groupBox. Visible: =true;
end;
readln (f, tmp);
if tmp<>0 then begin // memoBox
if NOT (Assigned (memoBox)) then begin
memoBox: = TMemo. Create (Form1);
memoBox. Parent: = Form1;
memoBox. OnMouseDown: = ComponentMouseDown;
memoBox. OnMouseMove: = ComponentMouseMove;
memoBox. OnMouseUp: = ComponentMouseUp;
memoBox. Name: = 'Memo';
end;
memoBox. Top: =tmp;
readln (f, tmp);
memoBox. Left: =tmp;
readln (f, tmp);
memoBox. Height: =tmp;
readln (f, tmp);
memoBox. Width: =tmp;
readln (f, sig);
memoBox. Font. Color: =sig;
// SetProperties (memoBox);
memoBox. Visible: =true;
end;
readln (f, tmp);
if tmp<>0 then begin // speedBtn
if NOT (Assigned (speedBtn)) then begin
speedBtn: = TSpeedButton. Create (Form1);
speedBtn. Parent: = Form1;
speedBtn. OnMouseDown: = ComponentMouseDown;
speedBtn. OnMouseMove: = ComponentMouseMove;
speedBtn. OnMouseUp: = ComponentMouseUp;
speedBtn. Name: = 'SpeedButton';
end;
speedBtn. Top: =tmp;
readln (f, tmp);
speedBtn. Left: =tmp;
readln (f, tmp);
speedBtn. Height: =tmp;
readln (f, tmp);
speedBtn. Width: =tmp;
// SetProperties (speedBtn);
speedBtn. Visible: =true;
end;
readln (f, tmp);
if tmp<>0 then begin // shape
if NOT (Assigned (shape)) then begin
shape: = TShape. Create (Form1);
shape. Parent: = Form1;
shape. OnMouseDown: = ComponentMouseDown;
shape. OnMouseMove: = ComponentMouseMove;
shape. OnMouseUp: = ComponentMouseUp;
shape. Name: = 'Shape';
end;
shape. Top: =tmp;
readln (f, tmp);
shape. Left: =tmp;
readln (f, tmp);
shape. Height: =tmp;
readln (f, tmp);
shape. Width: =tmp;
// SetProperties (shape);
shape. Visible: =true;
end;
readln (f, tmp);
if tmp<>0 then begin // staticText
if NOT (Assigned (staticText)) then begin
staticText: = TStaticText. Create (Form1);
staticText. Parent: = Form1;
staticText. OnMouseDown: = ComponentMouseDown;
staticText. OnMouseMove: = ComponentMouseMove;
staticText. OnMouseUp: = ComponentMouseUp;
staticText. Name: = 'StaticText';
end;
staticText. Top: =tmp;
readln (f, tmp);
staticText. Left: =tmp;
readln (f, tmp);
staticText. Height: =tmp;
readln (f, tmp);
staticText. Width: =tmp;
// SetProperties (staticText);
staticText. Visible: =true;
end;
readln (f, tmp);
if tmp<>0 then begin // stringGrid
if NOT (Assigned (stringGrid)) then begin
stringGrid: = TStringGrid. Create (Form1);
stringGrid. Parent: = Form1;
stringGrid. OnMouseDown: = ComponentMouseDown;
stringGrid. OnMouseMove: = ComponentMouseMove;
stringGrid. OnMouseUp: = ComponentMouseUp;
stringGrid. Name: = 'StringGrid';
end;
stringGrid. Top: =tmp;
readln (f, tmp);
stringGrid. Left: =tmp;
readln (f, tmp);
stringGrid. Height: =tmp;
readln (f, tmp);
stringGrid. Width: =tmp;
SetProperties (stringGrid);
stringGrid. Visible: =true;
end;
CloseFile (f);
end;
procedure TForm1. BitBtn5Click (Sender: TObject);
begin
Showmessage (`Π‘ΠΏΡΠ°Π²ΠΊΠ° ΠΏΠΎ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°ΠΌ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ VLC Deflphi 7. Π Π°Π·ΡΠ°Π±ΠΎΡΠ°Π» ΠΡΠΈΠΊ ΠΠΈΡ Π°ΠΈΠ». ΠΠΎΡΠΎΠ½Π΅ΠΆ 2013');
end;
end.