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 padatab 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	procedure Tform_materi25.button_tampilClick(Sender: TObject);

2

begin

3

4	edit_nim.Text:='11110219';

5	edit_nama.Text:='Eko Wardoyo';

6	edit_kelas.Text:='11.7G.01'

7

8

end;

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

1	procedure Tform_materi25.button_gambarClick(Sender: TObject);

2

begin

3

4	if openpicturedialog1.Execute then

5

begin

6	image1.Picture.LoadFromFile(openpicturedialog1.FileName);

7

end;

8

9

end;

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

01	procedure Tform_materi25.button_bersihClick(Sender: TObject);

02

begin

03

04	edit_nim.Text:='';

05	edit_nama.Text:='';

06	edit_kelas.Text:='';

07

08	image1.Picture:=nil;

09

10

end;

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

1	procedure Tform_materi25.button_keluarClick(Sender: TObject);

2

begin

3

4	if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo)=ID_Yes)then

5

begin

6

close;

7

end

8

9

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 temaMenampilkan dan Menghapus Gambar Pada Image Delphi. Sangat mudah dan sederhana tapi sangat membantu dalam pembuatan program kreasi kita nantid(^.^”). Untuk temen temen  yang mau mengunduh materi Delphi bisa mengunduhnya di link dibawah ini :

Download – Materi 25 Menampilkan Dan Menghapus Gambar pada image