Hola cincosoft.
Poné un
TListBox y un control capaz de recibir texto. En el ejemplo voy a usar un
TMemo.
Desde el
Object Inspector pone la propiedad
DragMode del
TListBox en
dmAutomatic.
Luego asigna este código al evento
OnMouseDown del
TListBox:
Código Delphi
[-]
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ListBox1.BeginDrag(True);
end;
Y estos eventos al
TMemo:
Código Delphi
[-]
procedure TForm1.Memo1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:= Source is TListBox;
end;
procedure TForm1.Memo1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
Memo1.Lines.Add(TListBox(Source).Items[TListBox(Source).ItemIndex]);
end;
Con poca dificultad podés cambiar el Memo por un Edit, etc.
Saludos.