sys-ok Fans Club
Sobat Mau Jago Soal Hardware?? Klik Di Sini!!


Jumat, 10 Desember 2010

Cara Menambahkan Fungsi Undo pada komponen edit di delphi 7

GROSIR KAOS POLOS & KAOS MURAH




Adakalanya secara tak sengaja kita menghapus teks yang sedang di input pada komponen edit.Tak masalah bila teks yang diinput hanya berisi 5 karakter misalnya.Namun bagaimana bila karakter tersebut berjumlah belasan !?Nomor faktur misalnya.Tentu akan repot dan kurang efisien bila harus di ketik ulang secara manual.Apalagi bila karakter yang diketikan njelimet.Untuk itu pada tutorial kali ini , saya akan menjelaskan mengenai Cara Menambahkan Fungsi Undo pada komponen edit di Delphi 7.Sehingga bila data yang di input pada edit terhapus , kita bisa meng-undo-nya tanpa harus mengetik ulang.Okey , mari kita mulai.
Buka borland Delphi 7 anda lalu tambahkan 1 buah komponen edit kedalam form1.Lalu pada event onChange komponen edit1 , ketikan kode berikut


  1. procedure TForm1.Edit1Change(Sender: TObject);  
  2. begin  
  3.   Edit1.Perform(EM_CANUNDO, 0, 0);  
  4. end;  

Kode diatas berfungsi untuk "menangkap" hasil ketikan kita pada komponen edit1.Lalu pada form1 properties keyPreview set menjadi true.Dan pada form1 event onKeyDown ketikan kode berikut


  1. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  
  2.   Shift: TShiftState);  
  3. begin  
  4.   if Key= vk_escape  then //bila tombol escape ditekan  
  5.     begin  
  6.       Edit1.Perform(EM_UNDO, 0, 0); //undo  
  7.     end;  
  8. end;  

Coba jalankan program anda lalu ketikan sesuatu pada edit1.Setelah itu hapus teks yang telah anda ketikan lalu tekan escape/esc.Maka teks yang telah diketikan lalu di hapus tadi akan muncul kembali.Sekian tutorial kali ini semoga bermanfaat.
|| Facebook Bagi2 Software Dan Ipad Gratis Loh! Download Disini

  • Share
iklan 440x90

Baca artikel lainnya :

0 komentar:

Show Hide Comments

Posting Komentar

© 2011 copyright www.belajarber-sama.blogspot.com Themes By Gresik edited by belajarber-sama.blogspot
Free Download Software Full Crack Keygen Patch Serial

Cara Menambahkan Fungsi Undo pada komponen edit di delphi 7