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

[Harry Stahl]

Also, ich habe zum Test einfach nur eine Listbox auf ein neues Formular gelegt, und da funktioniert alles so, wie es soll.

Hast Du evtl. eine spezielle "Konstruktion" von Panels, Layouts, in dem die Listbox eingebettet ist?

Kannst Du evtl. hier eine Form ( ein Auszug von Deinem Projekt) einfach einmal posten, so dass man es konkret Testen kann?

P.S. Freut mich, wenn das Buch ein guter Einstieg in FireMonkey für Dich war
Für die mobile Plattform ist auch ein Buch geplant.

[Ralphi]

Hallo,

vielen Dank für die hilfreichen Hinweise.
So war dann klar, dass es an speziellen Rahmenbedingungen bei mir liegen muss.
Diese Versuche mit Firemonkey Listbox/AllowDrag hatte ich auf einem Notebook mit WIN8 (Acer Aspire V5-572PG, bei dem leider das Udate auf WIN8.1 wegen inkompatiler Treiber nicht möglich ist) gemacht.
Ich habe diese Versuche dann jetzt auf meinem normalen PC (WIN8.1) wiederholt und da klappt dann alles wie von Harry beschrieben.

Was die Probleme auf dem Notebook letztlich verursacht weiss ich noch nicht.
Auf dem Notebook gibt es bei einigen wenigen Programmen teilweise Unstimmigkeiten zwischen der HD-Bildschirmauflösung (bei 100&-Skalierung ist alles zu klein, Skalierung muss mindestens auf 125% stehen) und der Mausposition. Vielleicht hängt es damit zusammen. Vielleicht ist auch bei der XE-Installation auf dem Notebook etwas schräg, mache bei nächster Gelegenheit eine Aktualisierung. Oder es liegt irgendwie an der Kombination Notebook-Treiber/WIN8.0/Firemonkey.

Ralphi