Delphi for delphier

Langkah-langkah membuat program

   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
   
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form
   
Image1: TImage;
Button1: TButton;
Button2: TButton;
   
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini. Klik disini untuk melihat kode form-nya.
   
umum0021.jpg
   
Langkah 4
Buat fungsi screenshot. Untuk lebih jelasnya, silahkan anda lihat potongan kode program dibawah ini.
   
procedure ScreenShot(DestBitmap : TBitmap) ;
var
  DC : HDC;
begin
  DC := GetDC(GetDesktopWindow) ;
  try
   DestBitmap.Width := GetDeviceCaps(DC, HORZRES) ;
   DestBitmap.Height := GetDeviceCaps(DC, VERTRES) ;
   BitBlt(DestBitmap.Canvas.Handle,
          0,
          0,
          DestBitmap.Width,
          DestBitmap.Height,
          DC,
          0,
          0,
          SRCCOPY) ;
  finally
   ReleaseDC(GetDesktopWindow, DC) ;
  end;
end;
   
Langkah 5
Kemudian, silahkan anda isikan kode program didalam event OnClick pada tombol Proses.Untuk lebih detailnya silahkan lihat potongan kode program berikut ini.
   
procedure TForm3.Button1Click(Sender: TObject);
var
// deklarasi variabel
Gambar : TBitmap;
begin
// buat object
Gambar := TBitmap.Create;
try
  // menangkap gambar
  ScreenShot(Gambar);
  // memasukkan gambar tangkapan ke Image1
  Image1.Picture.Bitmap.Assign(Gambar) ;
finally
  // hapus memory dan object
 
  Gambar.FreeImage;
  FreeAndNil(Gambar);
end;
end;
   
Langkah 6
Silahkan anda compile project tersebut dengan menekan tombol Ctrl + F9
   
Langkah 7
Tekan tombol F9 hingga program aplikasi siap untuk dijalankan.
   
pemulaumum000000000000001.png
   
Langkah 8
Lanjutkan dengan menekan tombol Proses hingga didapatkan tampilan seperti berikut dibawah ini.
   
 
umum0022.jpg
   
Langkah 9
Project sudah selesai dibuat, sekarang silahkan anda tutup program aplikasi tersebut.
   
Download
Klik disini untuk mendapatkan contoh kode programnya
 
Klik disini untuk mendapatkan video tutorialnya
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM
   
 
Iklan

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: