cara pasang gambar format file gif pada delphi

DELPHI

Menampilkan gambar .Gif di komponen TImage delphi ternyata tidak begitu susah. hanya membutuhkan compiler .Gif nya saja.
oke dowmload saja dulu compilernya disini.oke selanjutnya kopikan file GIFImage.dcu ke C:\Program Files\Borland\Delphi7\Lib dan paste kan disini.

langkah selanjutkan buka delphi anda dan tambahkan 1komponen  button, 1 komponen OpenPictureDialog, dan 1 komponen TImage kedalam form (halaman kerja).

atur seperti pada gambar dibawah ini

ubah Caption Button1 dengan Pilih Gambar Gif
ubah Stretch Image1 dengan TRUE

selanjutnya berikan pertintah dibawah ini pada Button1

procedure TForm1.Button1Click(Sender: TObject);
begin
    if not openpicturedialog1.Execute then
        exit
    else
        image1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;

tambahkan GIFImage pada bagian uses

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtDlgs, ExtCtrls, StdCtrls, GIFImage;

sekarang jalankan program yang telah sobat buat. InsyaALLAH dijamin programnya jalan 100%.

sekian sobat semua yang bisa penulis share kali ini..
untuk sobat yang ingin donwload program sudah jadi langsung saja disini
jangan lupa di comment ya, penulis masih sangat membutuhkan comment anda...
terima kasih atas kunjunganya.....