Delphi – Menampilkan Dan Menghapus Gambar pada Image

Assalamualaikum Temen Temen Semua, Salam Semangat Di Kamis Pagi Hari ini d(^o^”) masih setia di Catatan Eko Personal Blog nich dengan Tips Tips Materi Pembelajaran Delphi *hehehe.

Untuk Hari ini saya mau berbagi materi Delphi dengan Tema Menampilkan Dan Menghapus Gambar Pada Image. Hmm Pernah mau membuat form master dengan menampilkan gambar ? misal untuk form mahasiswa, form data barang dengan menambahkan gambar tampilan dapat membuat program lebih atraktif dan menarik. Nah untuk mempersingkat waktu kita dipagi hari ini, langsung aja disimak ya.

Pembuatan program kali ini temen temen akan melihat 2 component baru yang akan kita gunakan. Yakni component Image dan OpenPictureDialog. Untuk component Image temen temen bisa dapatkan pada tab pallete additional nanti aka nada icon image, dan untuk OpenPictureDalog temen temen bisa dapatkan pada tab pallete Radio, untuk lebih jelas lihat gambar dibawah ini.

component image pada tab aditional lihat yang dilingkari

OpenPictureDialog terdapat pada tab pallete radio lihat yang dilingkari

Nah itulah component yang akan kita gunakan dimana Image Berfungsi untuk tempat menampilkan gambar dan untuk OpenPictureDialog adalah fasilitas untuk menampilkan box open picture berbasis windows. Untu gambar yang bisa kita tampilkan diharapkan dengan format Bmp. Untuk JPEG kita harus memberikan coding yang cukup serius *hehehe jadi untuk awal temen temen bisa siapkan forma Bmp dengan save as pada paint *gampangnya. Nah langsung aja kita praktekkan ya.

  • Pertama tama buatlah design form sebagai berikut : ( gunakan image dan openpicturedialog )
  • Aturlah Properties namenya Sebagai Berikut :

Nah untuk alur programnya silahkan dibaca dibawah ini :

  • Pada saat program dijalankan kita bisa menekan button tampil untuk menampilkan biodata kita ( nim, nama, kelas ).
  • Untuk menampilkan gambar kita tekan button Gambar kemudian akan muncul box open picture ( pilih gambar kemudian tekan ok ) setelah pemilihan gambar nanti otomatis gambar yang dipilih akan ditampilkan pada image.
  • Jika button bersih di klik maka akan membersihkan layar biodata dan gambarnya.
  • Jika button keluar di klik maka akan muncul pesan peringatan keluar, jika oke akan keluar dari program.

Berikut ini adalah listing Codenya :

procedure Tform_materi25.button_tampilClick(Sender: TObject);
begin

edit_nim.Text:='11110219';
edit_nama.Text:='Eko Wardoyo';
edit_kelas.Text:='11.7G.01'

end;

Saat Button tampil DI Klik maka akan tampil biodata kita ( nim, Nama, Kelas ).

procedure Tform_materi25.button_gambarClick(Sender: TObject);
begin

if openpicturedialog1.Execute then
begin
image1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;

end;

Jika Button Gambar di klik makan akan menampilkan box open picture dialog yang dimana jika kita memilih gambarnya akan menampilkan pada image.

procedure Tform_materi25.button_bersihClick(Sender: TObject);
begin

edit_nim.Text:='';
edit_nama.Text:='';
edit_kelas.Text:='';

image1.Picture:=nil;

end;

Jika button Bersih di kilk maka biodata dan gambar akan hilang dibersihkan. untuk menghilangkan gambar pada image menggunakan nilai ” nil “.

procedure Tform_materi25.button_keluarClick(Sender: TObject);
begin

if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=ID_Yes)then
begin
close;
end

end;

JIka button Keluar di klik akan muncul konfirmasi keluar dari program

_______________________________________________________________________________

Nah berikut ini adalah hasil tampilan program saat dijalankan.

hasil saat button tampil di klik

hasil tampilan gambar dengan mengklik button gambar dan memilih gambarnya

tampilan saat button bersih di klik

message box peringatan keluar dari program

Nah itulah tips yang bisa saya sampaikan pada pagi hari ini dengan tema Menampilkan dan Menghapus Gambar Pada Image Delphi. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kreasi kita nanti d(^.^”). Untuk temen temen  yang mau mengunduh materi Delphi bisa mengunduhnya di link dibawah ini :

Download – Materi 25 Menampilkan Dan Menghapus Gambar pada image

Tetap Simak Terus Catatan-Eko Ya Temen temen semua, Kita akan tetap kembali dengan tips tips menarik materi pembelajaran Delphi tentunya, Sampai Jumpa lagi dilain kesempatan – Salam Semangat.

Eko

 

Simak Juga Materi Materi Menarik Lainnya nich d(^o^)  :

–          Delphi – Mengubah Warna dengan Color Dialog.

–          Delphi – Web Browser

–          Delphi – validasi Angka Edit Box

_______________________________________________________________________________

13 thoughts on “Delphi – Menampilkan Dan Menghapus Gambar pada Image

  1. Ping-balik: Delphi – Menghitung Jumlah Karakter Edit Box « Catatan Eko

  2. Ping-balik: Catatan Eko

  3. Ping-balik: Delphi – Fungsi Delete String « Catatan Eko

  4. Ping-balik: Delphi – Merubah Font Style Check Box « Catatan Eko

  5. Ping-balik: Delphi – Animasi Tampilan Teks « Catatan Eko

  6. mas eko mau nanyak kalo mau buat file setup untuk program yg telah kita buat pada delphi gimana ya?
    kalo da tutorial.x minta donk>>

  7. mas mau tanya kl kita memasukan data-data misalkan seperti data nama seseorang, kelas,NIM pada suatu aplikasi database delphi terus data-data tersebut disimpan di file directory mana? atau pa langsung di simpan di directory file aplikasi data base sendiri? salam kenal mas, terima kasih…

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s