[FMX] TTreeView onDradDrop Handler

[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.