Delphi – Menampilkan Dan Menghapus Gambar pada Image

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 :

1 2 3 4 5 6 7 8

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

1 2 3 4 5 6 7 8 9

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.

1 2 3 4 5 6 7 8 9 10

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

1 2 3 4 5 6 7 8 9

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(^.^”).
klik disini