Coding Message Box Untuk Button Close (Keluar) Di Delphi 7

if application.MessageBox('Yakin akan Keluar dari Program','Konfirmasi Ulang',MB_YesNo)=ID_Yes) then
form1.Close;


Nah itu di atas codingnya,, sedikit kan kawan ?? :D
Jika Program nya di running,, lalu tombol close (keluar) nya di klik maka akan muncul seperti gambar di bawah ini.. ^_^

^Semoga Bermanfaat^

Database Bergambar

Untuk yang mau mencoba Delphi 7, membuat database yang dapat menampilkan foto/gambar..
Download aja nich tutorialnya kawan.. :D

Link Download :
http://www.mediafire.com/view/81kb4d9f4d819do/Delphi_Bergambar.docx

^Semoga Bermanfaat^

Tutorial Project Kalkulator Di Borland Delphi

Pertama tama masukan Label, Edit, dan Button ke dalam Form 1.
Jumlahnya :
Label => 7
Edit => 6
Button => 3

Ganti Caption Label :
Label 1 => Bilangan Pertama
Label 2 => Bilangan Kedua
Label 3 => ============
Label 4 => Hasil Perkalian
Label 5 => Hasil Pembagian
Label 6 => Hasil Penjumlahan
Label 7 => Hasil Pengurangan

Ganti Name Edit :
Edit 1 => EdtBP
Edit 2 => EdtBK
Edit 3 => EdtKali
Edit 4 => EdtBagi
Edit 5 => EdtTambah
Edit 6 => EdtKurang

Ganti Caption Button :
Button 1 => Hitung
Button 2 => Bersih
Button 3 => Tutup

Nah sekarang kita mulai coding Button1 'Hitung'
Double Click Button Hitung dan mulailah masukan source code seperti di bawah ini.. :


procedure TForm1.Button1Click(Sender: TObject);
var
bilp,bilk,hasil : real;
begin
bilp := strtofloat(edtbp.Text);
bilk := strtofloat(edtbk.Text);
hasil := bilp*bilk;
edtkali.Text := floattostr(hasil);
hasil := bilp/bilk;
edtbagi.Text := floattostr(hasil);
hasil := bilp+bilk;
edttambah.Text := floattostr(hasil);
hasil := bilp-bilk;
edtkurang.Text := floattostr(hasil);
end;

Selesai lah kita coding Button Hitung.. :D

Sekarang kita mulai memasukan source code di Button Bersih.
Double Click Button Bersih dan masukanlah source code seperti di bawah ini :


procedure TForm1.Button2Click(Sender: TObject);
begin
edtbp.Text := '';
edtbk.Text := '';
edtkali.Text := '';
edtbagi.Text := '';
edttambah.Text := '';
edtkurang.Text := '';
edta1.Text := '';
edta2.Text := '';
edthasil.Text := '';
end;

Button Bersih sudah selesai kita masukan sorce codenya.. :D

Sekarang terakhir kita masukan souce code untuk Button Tutup.
Double Click Button Tutup dan masukanlah source code seperti di bawah ini :


procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

end.

Selesai semua dech.. :D
Mari kita coba Running dengan menekan tombol 'F9'  atau dengan menekan tombol play pada toolbar.. ^^