|
Procedure TForml.TimerlTimer(Sender: TObject);
Bu shuni bildiradiki, dasturlash ishga tushgandan so‘ng 3000
millisekunddan o‘tishi bilan Imagel va Timerl komponentalari
kompyuter xotirasidan va mos ravishda ekrandan o‘chiriladi.
133
9.Tuzilgan loyiha (npoeier) ya’ni Projectl va Unitl standart modul
nomlarini mos nomlar bilan almashtirib saqlanadi.
10.Yangi nom bilan saqlangan loyiha, ya’ni ilova F9 tugmachasini
bosish bilan ishga tushiriladi.
Ilova ishga tushirilganda ekranda yuqoridagi 4-punktdagi rasm
«zastavka» ko‘rinishida namoyon boladi.
Tashkil qilingan modulning to‘liq ko‘rinishini keltiramiz:
Unit pxl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtris, ExtCtris;
Type
Var
implementation
{$R *.dfm}
procedure TForml.TimerlTimer(Sender: TObject);
begin
Yaratilgan «zastavka»miz qism dasturining ishlashi davomida
o‘chib-yonib turishi uchun quyidagi OnTimer hodisasini qayta ishlash
kodini yozishimiz kerak bo‘ladi.
Procedure TForml.TimerlTimer(Sender: TObject);
Begin
End;
Else Imagel.Show;
M i s o 1:
Oyning Yer atrofida aylanishini namoyish etuvchi ilova yaratish.
Ye 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 boladi (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 boladi: 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.
bilan joylashtiramiz va uning Caption xossasini «Oyning Yer atrofida
aylanishi» qiymatiga o‘zgartiramiz. Font xossasiga kirib kerakli shriftni
va uning olchamini aniqlaymiz (agar kerak bo‘lsa). Masalan,
HaSop ch m bo jio b —krilitsa.
Transparent xossasi qiymatini Tme qilib o‘rnatamiz.
6.Timerl komponentini aktivlashtiramiz, ya’ni uni ikki marta tez-
tez bosamiz va kodlami yozish oynasiga quyidagi q i qora yozilgan kodlami
kiritamiz:
Dostları ilə paylaş: | 
