Cara Menambahkan Fungsi Undo pada komponen edit di delphi 7

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;  

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit1.Perform(EM_CANUNDO, 0, 0);
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;  

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key= vk_escape  then //bila tombol escape ditekan
    begin
      Edit1.Perform(EM_UNDO, 0, 0); //undo
    end;
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.