Fungsi Drag and Drop String ke Komponen TEdit di Delphi 7



Selamat malam agan-agan (gesruk-gesruk , nyapu blog yang udah lama gak update).Haduh , maaf bukannya gak kangen posting , tapi akhir-akhir ini saya lagi sibuk ngurusin bisnis jaket kulit yang baru aja beres.Sekalian promosi aja deh , silahkan agan-agan sambangin JQueat , Leader of Leather Jacket (Promosi terselubung).Okey , trus kali ini mau ngebahas apa yu !? Simpel aja , saya cuma mau ngeshare tips biar kita bisa menggunakan Fungsi Drag and Drop String ke Komponen TEdit di Delphi 7.Maksudnya !? Misal kita punya kumpulan string pada suatu komponen , dan karena kita males ngetiknya satu-satu , alangkah baiknya kita menggunakan tips berikut.Ayo buka Borland Delphi 7 tercinta anda.Setelah itu tambahkan satu buah komponen TListBox dan satu buah TEdit.Tambahkan beberapa item pada TListBox , terserah mau apa aja.Nama binatang , buah atau apa aja.Jangan lupa pada TListBox Properties DragMode , rubah menjadi dmAutomatic.Setelah itu pada event TEdit onDragDrop , ketikan kode berikut

  1. procedure TForm1.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);  
  2. begin  
  3.   (Sender as TEdit).Text := (Source as TListBox).Items  
  4.     [(Source as TListBox).ItemIndex];  
  5. end;  

Selanjutnya , pada TEdit event onDragOver , ketikan kode berikut.


  1. procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;  
  2.   State: TDragState; var Accept: Boolean);  
  3. begin  
  4.   Accept:=true;  
  5. end;  

Sip , coba jalankan program anda.Lalu pilih item pada TListBox dan drag ke komponen TEdit.Harusnya , item yang di drag tersebut akan tercopy ke TEdit.Okay deh , sekian postingan kali ini semoga bermanfaat.

0 Response to " Fungsi Drag and Drop String ke Komponen TEdit di Delphi 7 "

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!