[FMX] TTreeView onDradDrop Handler

[LoZe]

Hallo, ich habe da ein kleines Problem.

ich will die User im TreeView per Drag and Drop in die verschiedenen Schichten einteilen.
aber ich will nicht des ein User einem User Untergeordnet werden kann.

ich habe das jetzt im Moment so Gelöst:

Delphi-Quellcode:

procedure TForm2.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
var
  node:TTreeViewItem;
begin
  if (TreeView1.Selected <> nil) and (SsLeft in Shift) then
  begin
    node:= TreeView1.Selected;
    if node.text[1] = '@' then BeginInternalDrag(TreeView1.Selected, Image2.Bitmap);
  end;
end;


procedure TForm2.TreeView1DragDrop(Sender: TObject; const Data: TDragObject;
  const Point: TPointF);
var
  TargetNode : TTreeViewItem;
  SourceNode : TTreeViewItem;
begin
  TargetNode  := TreeView1.ItemByPoint(Point.X,Point.Y);
  SourceNode  := Data.Source as TTreeViewItem;

  if op = TDragOperation.None then
  begin
    Abort;  // <- Hier der Abbruch ***
  end;
  ShowMessage(SourceNode.Text + ' -> ' + TargetNode.Text);
end;

mein Problem Dabei ist dass, das Drag Object weiterhin Sichtbar ist wie breche ich den Drag Vorgang ab?

[LoZe]

Hier Nochmal ein Bild in dem man das Problem besser erkennt.

Das Drop Item wird komplett Überlagern angezeigt auch wenn ich eine andere Anwendung im Vordergrund habe.

wie Zerstöre ich dies bei einem fehlerhaften Drop

[Harry Stahl]

Du könntest es z.B. so lösen:

Delphi-Quellcode:

procedure TForm18.TreeView1DragChange(SourceItem, DestItem: TTreeViewItem;
  var Allow: Boolean);
begin
  Allow := copy (DestItem.text, 1,1) <> '@';
end;

Dann wird das Drop nur akzeptiert, wenn die übergeordneten Knoten der User als Ziel ausgewählt werden.

[LoZe]

Vielen Dank für die Antwort ich werde es Morgen mal testen.

[LoZe]

Zitat von Harry Stahl:

Du könntest es z.B. so lösen:

Delphi-Quellcode:

procedure TForm18.TreeView1DragChange(SourceItem, DestItem: TTreeViewItem;
  var Allow: Boolean);
begin
  Allow := copy (DestItem.text, 1,1) <> '@';
end;

Dann wird das Drop nur akzeptiert, wenn die übergeordneten Knoten der User als Ziel ausgewählt werden.

Hallo Harry,
Deine Lösung war genau das, wonach ich suchte.
Funktioniert einwandfrei.


Vielen Dank.

[Harry Stahl]

OK, freut mich.