Ir al contenido


Foto

Drag & Drop Items de un TListBox a TEdit


  • Por favor identifícate para responder
4 respuestas en este tema

#1 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 23 septiembre 2009 - 06:57

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
  1. procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
  2.   State: TDragState; var Accept: Boolean);
  3. begin
  4. Accept := True; //Asignamos True para cuando soltemos el mouse el Edit acepte el items
  5. end;
  6.  
  7. procedure TForm1.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
  8. begin
  9. (Sender as TEdit).Text :=
  10.     (Source as TListBox).Items
  11.     [(Source as TListBox).ItemIndex]
  12. end;



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

Espero lo disfruten (y).

Saludos.
  • 0

#2 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 23 septiembre 2009 - 06:59

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

#3 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4.107 mensajes
  • LocationMadrid - España

Escrito 24 septiembre 2009 - 12:00

Interesante ejemplo, enecumene(y)

Saludos.
  • 0

#4 razadi

razadi

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 681 mensajes
  • LocationMéxico D.F.

Escrito 24 septiembre 2009 - 07:47

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.
  • 0

#5 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.419 mensajes
  • LocationRepública Dominicana

Escrito 24 septiembre 2009 - 08:02

Muchas gracias Razadi, lo esperaré :).

Saludos.
  • 0




IP.Board spam blocked by CleanTalk.