Download

11/15/2010

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 komentar:

Post a Comment

Newer Post Older Post Home
Aulia DirUt. Powered by Blogger.
 

Blog Archive

Followers

 

Templates by Nano Yulianto | CSS3 by David Walsh | Powered by {N}Code & Blogger