Menulis Kode Program

Sekarang kita coba memberikan perintah diantara keyword begin dan end. Menulis code program biasanya gampang-gampang sudah, dalam hal ini kamu nggak harus seorang pakar, khusunya ketika kamu baru mulai belajar Delphi. Sekarang coba ketikan code program dibawah ini. Yang perlu kamu ketikan hanya code program yang berada antara begin dan end: 

procedure TForm1.btnTampilkanClick(Sender: TObject);

begin

  MessageDlg ('Hallo Yogyakarta, apa khabar ?', mtInformation, [mbOK], 0);

end;

Sederhana ‘khan, oke, dan ini merupakan suatu permulaan yang baik. Perintah yang terdapat pada event OnClick btnTampilkan hanya akan memangil sebuah fungsi (function) bawaan Delphi saja yaitu, MessageDlg, kegunaannya adalah menampilan kotak dialog. Cara penulisan dari fungsi ini adalah;

MessageDlg(Pesan, Jenis_Dialog, Tombol, HelpContext)

Tabel 1-1 Tabel konstanta nilai kembalian fungsi MessageDlg

Konstanta

Tombol yang di-Tekan (Pèncêt)

Sample Sintax With Konstanta Program :

procedure TForm1.FormClick(Sender: TObject);
	
        begin
	
          MessageDlg (’Ops … kamu di nge-click diluar dari are tombol’,
	
          mtWarning, [mbOK], 0);
	
        end;

Next sesion, Comming Soon...!