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

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

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

Selanjutnya , pada TEdit event onDragOver , ketikan kode berikut.

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

procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept:=true;
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.

|| Facebook Bagi2 Software Dan Ipad Gratis Loh! Download Disini