Membuka citra dengan menggunakan Delphi

Membuka citra atau open image dengan menggunakan delphi, dapat dengan mudah dilakukan dengan menggunakan dua komponen default dari delphi, yaitu menggunakan TImage dan TOpenPictureDialog. Berikut ini langkah-langkah untuk membuatnya.

1. Setelah membuka project baru, ambil Standard-> Panel, kemudian atur propertinya :

• Hapus Caption
• Height = 300
• Widht = 200
• Top = 0
• Left = 0

2. Tambahkan sebuah edit text dan button. Edit text akan digunakan untuk menuliskan nama file citra, dan button untuk trigger membuka dialog membuka gambar. Atur sedikit properti keduanya

• Edit1–> hapus text
• Button1 –> ubah Caption menjadi “Open”

3. Tambahkan komponen Additional -> Image, taruh di dalam Panel. Atur juga propertinya

• Left = 10
• Top = 20
• Width =200
• Height = 220

4. Terakhir, tambahkan komponen Dialog->OpenPictureDialog. Taruh di sembarang tempat di form.

5. Tampilan form kurang lebih akan menjadi seperti ini :

Tampilan Form Buka Citra

6. Isi event onClick dari Button 1 dengan kode berikut :

procedure TForm1.Button1Click(Sender: TObject);
var
namaFile : string; // digunakan untuk menyimpan nama file sementara
begin
if (OpenPictureDialog1.Execute) then // akan bernilai true jika tombol OPEN ditekan, sekaligus membuka kotak dialog
begin
namaFile:=OpenPictureDialog1.FileName; // mengambil string nama file, dan disimpan ke variable
Image1.Picture.LoadFromFile(namaFile); // membuka sebuah citra dari file, sesuai pilihan
Edit1.Text:=namaFile; // menuliskan nama file dari citra yang dipilih
end;
end;

Selamat mencoba