Firemonkey Listbox Drag&Drop mit AllowDrag

[Ralphi]

Hallo zusammen,

in der Firemonkey-Listbox gibt es die Eigenschaft AllowDrag.
Wenn man diese auf true setzt soll es möglich sein die Elemente der Listbox per Drag&Drop zu verschieben.
Funktioniert aber nicht.

Weiss jemand wie es geht?

[greenmile]

Ist schon ein wenig her, aber wenn ich mich recht erinnere: Im obersten Style-Level ist HitTest false, muss auf TRUE stehen
Drag&Drop war mit FM schon immer so eine Sache ... Viel Glück

[Ralphi]

Hallo,

danke, Glück ist bei Drag&Drop mit FM wahrscheinlich wirklich nötig.
Delphi-Version ist übrigens XE5, habe irgendwo gelesen, dass es zwischen den XE-Versionen bei Drag&Drop Unterschiede geben soll.

Ich habe schon alle möglichen Varianten durchprobiert, auch mit Hittest und EnableDragHighlight (in irgedneinem gegoogelten Beitrag wurde auch eine Abängigkeit von EnableDragHighlight erwähnt).

Mit Dragmode dmAutomatic und Hittest:=true im Listboxitem lässt sich ein Eintrag aufnehmen, aber nicht ablegen. Also Drag funktioniert, aber Drop nicht. Wie AllowDrag der Listbox gesetzt ist spielt dabei keine Rolle.
Bei DragMode dmManual geht gar nichts, obwohl Methoden DragMode und Dragover vorhanden sind.

Finde auch nirgendwo Infos dazu, obwohl doch umsortieren von Listboxeinträgen eigentlich eine oft benötigte Funktion ist und es FM ja nun schon einige Zeit gibt.

[greenmile]

Wie gesagt war es in irgendeiner XE Version direkt im Sourcecode ge-rem-t (Unit lokal kopieren und aus-rem-en) und/oder im Style Editor war auf einer der Ebenen der Hittest nicht auf true, weshalb es nicht weitergereicht wurde/wird.

Ich habe mir damals nen Wolf gesucht und ernsthaft mit dem Gedanken gespielt, mich in der QS von Embarcadero zu bewerben; wenn sowas nicht auffällt Muss man halt mit leben wenn man Firemonkey haben will.

[Harry Stahl]

Vielleicht gibt es noch einen eleganteren Weg, aber so geht es auch:

1. Listbox.AllowDrag auf True setzen
2. Item ziehen und auf gewünschter Position loslassen

Im OnDragDrop-Event der ListBox musst Du auf das Drop reagieren und zwar so:

Delphi-Quellcode:

procedure TForm40.ListBox1DragDrop(Sender: TObject; const Data: TDragObject;
  const Point: TPointF);
var
  LI: TListBoxItem;
begin
  if Data.Source is TListboxItem then begin
    LI := ListBox1.ItemByPoint (Point.X, Point.Y);
    Listbox1.ItemsExchange(LI, TListboxItem (Data.Source));
  end;
end;

[Ralphi]

Halllo,

das ist ja eine schnelle und elegante Methode. Gut zu wissen dass es letztlich so einfach geht mit FM und XE5.

Mein Problem ist, dass das DragDrop-Event nicht auslöst und die bei OnDragDrop eingetragene Prozedur nicht ausgeführt wird.
Bei DragMode dmAutomatic wird das Listitem aufgenommen und kann visuell bewegt werden, allerdings passiert bei Drop nichts. Alle Items bleiben an Ihrer Position und die DragDrop-Prozedur wird nicht ausgeführt.
Bei DragMode dmManual funktioniert schon das Aufnehmen (also Drag) nicht. Bei VCL wird das ja mit BeginDrag bei Event Mousedown gestartet. BeginDrag gibt es aber bei Firemonkey nicht.

Da stehe ich wahrscheinlich noch irgendwo auf dem Schlauch, weiss aber nicht wo. Habe schon alle Varianten durchprobiert, irgendwo muss noch was anderes klemmen.

Ich fange gerade erst mit Firemonkey an wegen Android. Dabei hat mir das Buch Cross-Platform-Development XE4/XE5 WIN/Mac sehr geholfen.
Ist ein ähnliches Buch für die Firemonkey-Entwicklung mit Android geplant?
Insbesondere die spezifischen Besonderheiten der mobilen Plattform und die Benutzung der Sensoren ist nur rudimentär dokumentiert. Ich denke da gibt es viele, die ein solches Buch gebrauchen könnten.

Ralphi