4 respuestas en este tema

[enecumene]

Pues eso, aprenderemos de manera sencilla cómo arrastrar y soltar (Drag & Drop) los items de un listbox hasta un edit. Coloquemos un TListBox y un TEdit. Lo primero que debemos hacer es asignar la propiedad Dragmode del ListBox a dmAutomatic para que se haga de manera automática, luego de asignar la propiedad procederemos a llenar los procedimientos OnDragDrop y OnDragOver del TEdit:

delphi

procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
Accept := True; //Asignamos True para cuando soltemos el mouse el Edit acepte el items
end;
 
procedure TForm1.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
(Sender as TEdit).Text :=
    (Source as TListBox).Items
    [(Source as TListBox).ItemIndex]
end;

Compilemos y arrastremos Items desde el ListBox al Edit y verán el proceso de arrastre .

Espero lo disfruten .

Saludos.

[Caral]

Hola
Hombre tienes un arsenal.
Gracias por el aporte amigo, esta muy bien.
Saludos

[escafandra]

Interesante ejemplo, enecumene. 

Saludos.

[razadi]

Buen ejemplo, enecumene, gracias por el aporte, por ahi tengo un fragmento de código de algo que hice donde interactuo el Drag & Drop interactuando con el explorer de windows, en un rato más lo subo.

Saludos.

[enecumene]

Muchas gracias Razadi, lo esperaré .

Saludos.