 |
Club Builder
Foro de C++Builder en español
|
| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Tugui
Master
Registrado: 09 Nov 2002Mensajes: 663
|
 Publicado: Mie 20 Ago, 2003 7:00 pm Asunto: Arrastrar items de un listBox a otro |
 |
|
En vistas a mejorar el funcionamiento de una aplicación quisiera que el usuario pudiese arrastrar items de un listbox a otro. Actualmente paso los items de un lisbox a otro a través de botones pero si además pudiese hacerlo arrastrando con el mouse mejor que mejor pero ésto último no sé muy bien cómo se hace, se que hay que jugar un poco con las propiedades dragkind, dragMode, OnDragOver, y alguna más pero no me aclaro.
Agradecería una ayudita. Saludos  .
_________________
¡ADELANTE CON ESTE SUPER FORO! |
|
| Volver arriba |
|
 |
_Viktor
Master
Registrado: 20 Jul 2003Mensajes: 463Ubicación: Santiago, Los Angeles - Chile
|
| Publicado: Lun 25 Ago, 2003 1:30 am Asunto: |
|
|
Esto funciona para dos Listbox y traspasando de a un elemento.., espero te sirva, debes poner la propiedad DragMode de ambos ListBox en dmAutomatic, suerte!
| Código: | void __fastcall TForm1::ListBox1DragDrop(TObject *Sender, TObject *Source,
int X, int Y)
{
if (Sender->ClassNameIs("TListBox") && Source->ClassNameIs("TListBox"))
{
TListBox *DestList = (TListBox *)Sender;
DestList->Items->Add( ListBox2->Items->Strings[ListBox2->ItemIndex]);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBox1DragOver(TObject *Sender, TObject *Source,
int X, int Y, TDragState State, bool &Accept)
{
Accept = Source->ClassNameIs("TListBox");
} |
_________________
"Ser inteligente no es ser mas, solo equivocarse menos y no usar Visual Basic"
Atte.
Victor Yañez
Apoyen el Proyecto OpenSource del Club Builder. Ya tenemos componentes Listos!!! |
|
| Volver arriba |
|
|
likibuay
Master
Registrado: 24 Abr 2006Mensajes: 190Ubicación: COLOMBIA
|
| Publicado: Lun 09 Nov, 2009 7:25 am Asunto: |
|
|
agregue un par de lineas, como me fue de utlidad tu codigo a otras personas tambien le sera... Gracias
adicione par lineas a tu codigo para evitar un error cuando tratan de arrastrar si antes seleccionar.
| Código: | [b]if(ListBox1->ItemIndex > 0 ){[/b]
if (Sender->ClassNameIs("TListBox") && Source->ClassNameIs("TListBox"))
{
TListBox *DestList = (TListBox *)Sender;
DestList->Items->Add( ListBox1->Items->Strings[ListBox1->ItemIndex]);
[b] ListBox1->ItemIndex=-1;[/b]
}
[b] }[/b] |
_________________
><(((((º> From °l||l° §ÂN ÅNЮ€$ i§Lã$ °l||l°
_____________________ |
|
| Volver arriba |
|
|
|
|
No puedes publicar temas nuevos en este foro
No puedes responder a temas en este foro
No puedes editar tus mensajes en este foro
No puedes borrar tus mensajes en este foro
No puedes votar en las encuestas de este foro
|
© 2002–2026 Club Builder · Funciona con phpBB.
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
