Mavzuning dolzarbligi i-bob. Asosiy tushunchalar


Procedure TForml.TimerlTimer(Sender



Yüklə 61,83 Kb.
səhifə15/19
tarix20.02.2023
ölçüsü61,83 Kb.
#85108
1   ...   11   12   13   14   15   16   17   18   19
Dildora.kurs ishi.nortura.domla

Procedure TForml.TimerlTimer(Sender: TObject); Begin
Imagel.Free; Timerl.Free;
end;

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.


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
TForml = class(TForm)
procedure TimerlTimer(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;

Var
Forml: TForml;

implementation
{$R *.dfm}

procedure TForml.TimerlTimer(Sender: TObject); begin
Imagel.Free; Timerl.Free;
End; end.

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
If Imagel.visible=true then Imagel.hide
Else Imagel.Show;
End;

M i s o 1 :
Oyning Yer atrofida aylanishini namoyish etuvchi ilova yaratish.


Yüklə 61,83 Kb.

Dostları ilə paylaş:
1   ...   11   12   13   14   15   16   17   18   19




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azkurs.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin