Boshqarish tugmasi

Bu amaliy mashg‘ulotda to‘rt tugmali «Oyna uchuvchisi» ilovasi yaratiladi: «O‘ngga», «Chapga», «Pastga», «Yuqoriga». Har bir tugma bosilganda oyna 10 piksel siljiydi: o‘ngga – Left ga +10, chapga – Left dan –10, pastga – Top ga +10, yuqoriga – Top dan –10. Har bir tugmaning OnClick protsedurasiga bitta buyruq yoziladi, masalan procedure TForm1.Button3Click(Sender: TObject); ⏎ begin ⏎  Form1.Top := Form1.Top + 10; ⏎ end; Ilovani F9 bilan ishga tushirib, tugmalarni ketma-ket bosing: oyna harakatini o‘zingiz hisoblagan natija bilan solishtiring. Nima uchun ayrim tugmalar ishlamayotganini tushunish uchun avval Object Inspector da tugma nomlarini, so‘ng protsedura nomini (Button1Click, Button2Click …) tekshiring: har bir protsedura o‘z tugmasiga bog‘langan bo‘lishi kerak.