[FMX] TTreeView onDradDrop Handler

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