Mavzu: Dasturlash tillari faniga kirish. Ob’ektga yo‘naltirilgan dasturlash tillari

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; 

  Shift: TShiftState; X, Y: Integer); 

begin 

  Canvas.TextOut(X, Y, 'X='+IntToStr(X)+' Y='+IntToStr(Y)); 

end; 

 

Dasturni  ishga  yuklab  forma  sirtida  sichqonchaning  chap  tugmasi  bosilsa 

quyidagiga o`xshash natijani ko`rish mumkin: 

 

 

 

---

Ko`rinib turibdiki, xodisalar bilan ishlash unchalik murakkab emas ekan. Yana 

bir  misol  sifatida  quyidagi  dasturni  ko`rishimiz  mumkin  (OnKeyDown  (tugmacha 

bosilganida) xodisasi): 

 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; 

  Shift: TShiftState); 

begin 

  MessageDlg(Chr(Key), mtInformation, [mbOk], 0); 

end; 

 

Dasturni ishga tushirib qanday natija  chiqishini bilib olarsiz. 

 

Yuqoridagi  yozuvlardan  foydalanib  xodisa  nima  ekanligini  bilb  oldik.  Endi 

yangi  xodisa  yaratishni  ko`rib  chiqamiz.  Xodisa  yaratishning  umumiy  ko`rinishi 

quyidagicha bo`ladi: