Arrastrar elementos entre dos TListBox
Se trata de un ejemplo de cómo arrastrar elementos entre dos componentes de tipo TListBox utilizando el ratón.
Está basado en un formulario que ya trae el propio Delphi como ejemplo y accesible desde el menú de:
File/New/Other/Forms/Dual List Box
En este ejemplo se añaden 4 procedimientos que introducen la posibilidad de mover elementos utilizando el ratón y que en el original sólo se puede realizar utilizando controles del formulario.
La técnica de Drag & Drop que se usa en este ejemplo entre dos TListBox, puede ser fácilmente exportable para utilizarla con otros controles; StringGrids, DBGrid,…
Embarcadero MVP.
Analista y Programador de Sistemas Informáticos.
Estudios de Informática (Ingeniería Técnica Superior) en la UPC (Universidad Politécnica de Barcelona).
Llevo utilizando Delphi desde su versión 3. Especialista en diseño de componentes, Bases de Datos, Frameworks de Persistencia, Integración Continua, Desarrollo móvil,…
muy bueno!! abria una forma de q en lugar de ver el rectangulo en el mouse se vea que diga en este caso item3?
gracias!
Hola Alejandro.
Se podrá posiblemente si generas un cursor personalizado y en lugar del estandard utilizas ese cursor nuevo.
Revisa esta entrada “Utilizar un BMP para cambiar el cursor” (http://neftali.clubdelphi.com/?p=101); Ahí podrás ver cómo definir un cursor diferente a los estandard.
Un saludo.
Necesito hacer lo que has aplicado ahi con listas, pero con dbgrid, conectadas a una base de datos.. Podrias darme alguna ayudita??
@Vale
Haz la prueba utilizando los mismos eventos que se usan en el ejemplo. la mecánica es la misma, pero utilizando los grids. Es decir, los datos en lugar de extraerlos del Listbox los extraes del Dataset.
También puedes mirar esta referencia a las páginas de Zarko Gajic(http://delphi.about.com/b/2009/02/19/drag-and-drop-operations-with-delphis-dbgrid.htm)
Un saludo.