|
Multiplikatsiya Grafik komponentalar
|
| bet | 8/10 | | Sana | 08.02.2024 | | Hajmi | 35,63 Kb. | | #153462 |
Bog'liq Delphi tizimining oynasi va uning elementlariYe ch i sh
1.Yangi ilova yaratamiz.
2.Formaga Timer komponentasini Timerl nomi bilan joylash- tiramiz.Uning Interval xossasini 55 qilib o‘rnatamiz. Jarayon ya’ni hodisa 55 millisekundda paydo bo’ladi (uyg‘onadi).
3.Additional palitrasidan Shape komponentasini Shapel nomibilan formaga joylashtiramiz va uning quyidagi xossalarini o‘rnatamiz.
Shape — StCircle; Height — 121;
Width - 121; Left - 240;
Top - 104.
Brush xossasini tanlab ikki marta sichqonchani bosamiz, natijada ikkita yana qo‘shimcha xossalar paydo bo’ladi: Color va Style. Color xossasini tanlab, unga slBlue qiymatini o‘rnatamiz.
4.Formaga ikkinchi Shape komponentasini Shape2 nomi bilan joylashtiramiz va uning quyidagi xossalarini o‘rnatamiz.
Shape — StCircle; Height — 41;
Width - 41; Left - 400;
Top - 152.
Brush xossasiga clYellow rangini o‘rnatamiz.
5. Formaning yuqori qismiga Label komponentasini Labell nom bilan joylashtiramiz va uning Caption xossasini «Oyning Yer atrofida aylanishi» qiymatiga o‘zgartiramiz. Font xossasiga kirib kerakli shriftni va uning o’lchamini aniqlaymiz (agar kerak bo‘lsa).
Masalan,
IHpmJiT—Koypnep HeB;
HanepTaHHe— polujimiy;
Pa3Mep— 16;
HaSopchmbojiob— krilitsa.
Transparent xossasi qiymatini Time qilib o‘rnatamiz.
6.Timerl komponentini aktivlashtiramiz, ya’ni uni ikki marta tez- tez bosamiz va kodlami yozish oynasiga quyidagi qora yozilgan kodlami kiritamiz:
Procedure TForml.TimerlTimer(Sender: TObject);
Begin
x:=x+0.1;
Shape2.Left:=265+Trunc(50*Cos(x)); Shape2.top:=150-Trunc(50*Sin(x));
end;
7.Tuzilgan loyiha ya’ni Projectl va Unitl standart modul nomlarini mos nomlar bilan almashtirib saqlanadi.
8.Yangi nom bilan saqlangan loyiha, ya’ni ilova F9 tugmachasini bosish bilan ishga tushiriladi.
Ilova ishga tushirilganda ekranda Oyning Yer atrofida aylanishi namoyish qilinadi.
Tashkil qilingan modulning to‘liq ko‘rinishini keltiramiz:
|
| |
