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

procedure TForm1.FormClick(Sender: TObject);  

begin  

 

end;  

Biz unga quyidagi o`zgartirishni kiritamiz: 

 

procedure TForm1.FormClick(Sender: TObject);  

begin  

  MessageDlg('Salomlar !!!', mtInformation, [mbOk], 0);  

end;  

 

Yuqoridagi  amallar  bajarilgach,  dastur  ishga  yuklanidan  so`ng    formaning 

istalgan qismida sichqonchaning chap tugmasi bosilsa quyidagi oyna hosil bo`ladi: 

 

---

 

 

Yuqoridagi misoldan ko`rinib turibdiki, qandaydir xodisa ro`y berganida javob 

olish  mumkin  ekan.  Ko`pchilik  dasturchilar  bu  vaqtda  qanday  jarayon 

bo`layotganligini tushunmay dastur tuzadilar. Shuni aytish mumkinki, har-bir xodisa 

ro`y berganida operatsion sistema bu xodisani aniqlaydi va dasturga xodisaning turi 

xaqidagi  xabarni  uzatadi.  Misol  qilib  forma  sirtida  sichqonchaning  chap  tugmasi 

bosilganida  ro`y  beradigan  xodisani  ko`rishmuz  mumkin.  Buning  uchu  xodisa 

sahifasidan  OnMouseDown  xodisasi  tanlanadi  va  dasturga  quyidagi  o`zgartirish 

kiritiladi: