Delphi adalah alat pengembangan program visual yang kuat. Ketika kita menggunakan Delphi untuk mengembangkan aplikasi WINDOWS, meskipun Delphi menyediakan banyak properti (PRperty) dan event (Event) untuk setiap komponen visual, dalam aplikasi sebenarnya kita mungkin menemui beberapa event khusus yang kita perlukan. Delphi tidak menyediakan event khusus, jadi kita perlu untuk menambahkan acara khusus ini ke aplikasi. Apabila peristiwa tersebut terjadi maka tata cara penanganan peristiwa tersebut dapat segera dipanggil. Artikel ini menggunakan contoh untuk mengilustrasikan cara menambahkan peristiwa ke aplikasi dan memproses peristiwa tersebut.
Di Delphi, event sebenarnya adalah properti khusus, yang merupakan penunjuk ke suatu prosedur. Untuk menambahkan suatu peristiwa, pertama-tama Anda harus menentukan penunjuk ke proses peristiwa di kelas yang ditentukan. Fungsi penunjuk ini adalah untuk mengeksekusi proses yang ditunjuk oleh penunjuk ini untuk menangani peristiwa tersebut setelah peristiwa tersebut terjadi. Terakhir, atribut peristiwa yang ditentukan dan penunjuk pemrosesan peristiwa yang terkait dengannya dipublikasikan melalui penentu yang diterbitkan.
Dalam contoh ini, FtooBig adalah penunjuk pemrosesan peristiwa yang ditentukan, dan OnTooBig adalah nama atribut peristiwa. Penunjuk proses pemrosesan peristiwa FtooBig dibuat untuk menunjuk ke proses TooBig1 melalui inisialisasi program. Tempatkan tiga kotak edit pada form Delphi (Form1) yaitu Edit1, Edit2 dan Edit3, dan tempatkan tombol Button1. Program ini menyiapkan variabel integer pribadi val1, val2 dan res. Variabel res digunakan untuk mencatat produk val1 dan val2 dan menampilkannya menggunakan Edit3. Ketika salah satu input data melalui Edit1 dan Edit2 lebih besar dari 100, sebuah peristiwa akan dipicu, dan prosedur penanganan peristiwa TooBig1 akan dipanggil untuk menampilkan kotak dialog yang menunjukkan bahwa peristiwa ini telah terjadi dan telah diproses. Kode program sumbernya adalah sebagai berikut. Program telah di-debug di Delphi 3.
unit Unit1;antarmukamenggunakan Windows, Pesan, SysUtils, Kelas, Grafik, Kontrol, Formulir, Dialog, StdCtrls;ketik TForm1 = class(TForm) Edit1: TEdit; {Masukkan bilangan bulat pertama} Edit2: TEdit; {Masukkan bilangan bulat kedua } Edit3 : TEdit; {Keluarkan produk dari dua bilangan bulat pertama} Button1: TButton; procedure Button1Click(Pengirim: TObject); procedure TooBig1(Sender: TObject); {Prosedur ini dipanggil ketika event dipicu} procedure FormCreate(Sender: TObject); dua Produk angka} FTooBig : TNotifyEvent {mendefinisikan pointer ke event handler FTooBig} { Deklarasi pribadi } public { Deklarasi publik } properti yang diterbitkan OnTooBig:TNotifyevent baca FTooBig tulis FTooBig;{define event} end;var Form1: TForm1;implementasi{$R *.DFM}prosedur TForm1.Button1Click(Sender: TObject);begin val1 := StrToInt(Edit1.Text); = StrToInt(Edit2.Teks); if(val1< 100)dan(val2< 100) lalu mulai res := val1*val2; Edit3.Text := IntToStr(res); akhiri yang lain jika ditugaskan(FTooBig) lalu OnTooBig(Self);end;prosedur TForm1.TooBig1(Sender: TObject );beginapplication.MessageBox('Terlalu Besar',' Acara Uji! ',MB_OK);akhir;prosedur TForm1.FormCreate(Sender: TObject);begin val1:=1; val2:=1; FTooBig := TooBig1;{Buat penunjuk event handler menunjuk ke event handler}end;end.