Delphi dasturlash tilida ActiveControl bilan ishlash

Bugundan boshlab blogimda, Delphi dasturlash tilini o'rgatishni boshlayman.

Demak bugun siz bilan oddiygina misolni ko'rib chiqamiz, ya'ni ActiveControl funksiyasini o'rganamiz. 

O'zi bu nima uchun kerak?  : Dasturda aktiv bo'lib turgan kompanentni harakatlantirish (aniqlash) uchun kerak. 

Demak boshladik Delphi uchun birorta IDE ni ishga tushiramiz.

1. Men Delphi 7 ni ishga tushirdim.

2.Endi Timer kompanentasini topib formaga tashlaymiz.

3.Timerning Ontimer xodisasiga quyidagicha kod yozamiz.

Kod : 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval := 1000;
  if ActiveControl <> nil then
    ActiveControl.Left := ActiveControl.Left + 1;
end;

Bunda aktiv bo'lib turgan kompanentni har 1 sekundda harakatlantiradi. Ortiqcha 

menimcha ortiqcha izohga xojat yo'q. Agar biror narsaga tushunmagan bo'lsangiz xabar qoldiring. Muammoni birgalikda yechamiz