April 5, 2008

First Study With Sintax

Filed under: Delphi_Newbie

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)

 mrYes

 mtNo

 mrOK

 mrCancel

 mrAbort

 mrRetry 

 mrIgnore

 mrAll

 mrNone

  Yes

  No

  OK

  Cancel

  Abort

  Retry

  Ignore

  All

  Pengguna tekan esc keyboard

 
 
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...!