Ik heb in m'n applicatie 2 TListBoxen staan. Van beide ListBoxen staat de 'MultiSelect' property op true.
Nu ben ik bezig om wat 'sleur en pleur' functionaliteit in te bouwen in de app. Dat je dus items van de ene listbox kunt draggen en die items op de andere listbox kunt droppen.
Die drag and drop functionaliteit enzo werkt wel goed, maar die 'multiselect' eigenschap van m'n listboxen gaat een beetje de mist in. Als ik nl. met [CTRL]+[LeftClick] nog een item selecteer, lukt dat niet echt meer zoals het moet.
Het zal wel liggen aan m'n OnMouseDown event-handler die wat d&d functionaliteit bezit:
Iemand die al hetzelfde probleem heeft meegemaakt? Hoe heb je het opgelost of 'gework-arounded'?
Nu ben ik bezig om wat 'sleur en pleur' functionaliteit in te bouwen in de app. Dat je dus items van de ene listbox kunt draggen en die items op de andere listbox kunt droppen.
Die drag and drop functionaliteit enzo werkt wel goed, maar die 'multiselect' eigenschap van m'n listboxen gaat een beetje de mist in. Als ik nl. met [CTRL]+[LeftClick] nog een item selecteer, lukt dat niet echt meer zoals het moet.
Het zal wel liggen aan m'n OnMouseDown event-handler die wat d&d functionaliteit bezit:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| void __fastcall TfrmRapportPerMaand::BeschikbaarListBoxMouseDown(
TObject *Sender, TMouseButton Button, TShiftState Shift, int X,
int Y)
{
TListBox* ListBox;
if (Button == mbLeft)
{
ListBox = dynamic_cast<TListBox*>(Sender);
if (ListBox->ItemAtPos(Point(X, Y), true) >= 0)
{
ListBox->BeginDrag(false, 5);
}
}
} |
Iemand die al hetzelfde probleem heeft meegemaakt? Hoe heb je het opgelost of 'gework-arounded'?
https://fgheysels.github.io/