Membuat Kotak Pesan Pada Delphi
Ok gan, tutorial ini hanya untuk pembelajaran, adapun agan mau mengembangkannya saya sangat senang sekali.
Kali ini kita akan membuat sebuah aplikasi sederhana yang dapat menyampaikan atau memunculkan pesan ketika kita hendak melakukan eksekusi terhadap program.
Langsung saja...
- Buka Program Delphi lalu pilih File -> New -> Form.
- Pada Object Inspector sebelah kiri pada propertis untuk Height isikan dengan nilai 200 dan Width isikan dengan nilai 250. serta untuk Caption ketikan dengan MessageBox.
- Beri warna pada form tersebut dengan memilih Color pada Object Inspector.
Kali ini kita akan membuat sebuah aplikasi sederhana yang dapat menyampaikan atau memunculkan pesan ketika kita hendak melakukan eksekusi terhadap program.
Langsung saja...
- Buka Program Delphi lalu pilih File -> New -> Form.
- Pada Object Inspector sebelah kiri pada propertis untuk Height isikan dengan nilai 200 dan Width isikan dengan nilai 250. serta untuk Caption ketikan dengan MessageBox.
- Beri warna pada form tersebut dengan memilih Color pada Object Inspector.
- Pilih Label1 pada Tab Standar dan letakkan didalam Form.
- Rubah caption Label1 pada Object Inspector dengan Nilai 1.
- Letakkan Pula label2 pada form lalu rubah Captionnya dengan Nilai 2
- Letakkan Pula Edit1 dan Edit2 yang terletak pada Tab standar pada form seperti pada gambar berikut.
- Letakkan 2 buah Button yang terletak pada tab setandar pada form, lalu rubah captionnya. Button1 rubah captionnya menjadi "Bandingkan Nilai. dan Button2 rubah captionnya menjadi "Tampilkan Dialog"
Selanjutnya adalah penulisan sintak.
- Klik area form (jangan mengklik di daerah tombol, edit1&2 dan label). pada Object Inspector pilih Events lalu cari OnCloseQuery Double Clik pada Kolom Kosong disebelah kanannya lalu ketikkan sintak berikut.
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('Apakah anda akan keluar dari aplikasi ?',mtConfirmation, [mbYes, mbNo],0) = mrYes then
CanClose := True
else
CanClose := false;
end;
- Double Clik pada Button1(Tombol Bandingkan Nilai) lalu ketikan sintak berikut :
procedure TForm1.Button1Click(Sender: TObject);
begin
if strtoint(edit1.Text) > strtoint(edit2.Text) then
showMessage('Nilai ' + edit1.text + 'Lebih Besar Dari Nilai' + edit2.Text)
else
if strtoint(edit2.Text) > strtoint(edit1.text)then
showMessage('Nilai' + edit2.Text + 'Lebih Besar Dari Nilai' + edit1.Text)
else
showMessage('Nilai 1 Sama Dengan Nilai 2');
end;
- Double Clik pada Button2(Tombol Tampilkan Dialog) dan ketikan sintak berikut.
procedure TForm1.Button2Click(Sender: TObject);
begin
if messagebox(Handle, 'data akan disimpan?','Pertanyaan', MB_YESNO or MB_ICONQUESTION)=IDYES then showmessage ('ok');
end;
Jika selesai maka simpan pada folder yang telah disediakan, lalu jalankan....
Isikan dengan sembarang angka, lalu tekan tombol "Bandingkan Nilai", tekan pula tombol "Tampilkan Dialog". lalu tekan tombol Exit pada Pojok kanan atas.
Ok gan hanya itu, semoga bermanfaat dan dapat dikembangkan...
0 comments:
Post a Comment