Listbox tan Edite Metin Sürükle Bırak

[RamazanG]

Makale: Zarko Gajic.
Çeviri: Ramazan Gülbahar.


Object Inspector penceresinden "ListBox.DragMode = dmAutomatic" olarak ayarlayın

Kod: Tümünü seç

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

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