DragDrop mit TTreeViewItem als Ziel

[Peter-Pascal]

Hallo Harry,

danke, dass Du Dich meinem Problem annimmst.

Die besagte Zeile habe ich auskommentiert und bekomme eine Fehlermeldung. Eine Kopie habe ich beigefügt.

Wenn ich die Zeile drin lasse, kommt zwar keine Fehlermeldung, aber immer wieder der Logeintrag.Jetzt habe ich den Verdacht, dass es an der Methode ListViewZuordnenMouseMove liegt. Denn die Maus bewegt sich ja immer und offensichtlich wird die Routine oft aufgerufen.
Kann dies irgendwie unterbrochen werden? Gibt es einen Befehl, wenn DragDrop begonnen ist, nicht noch mal starten?

Kann es sein, dass da das Problem liegt?

Gruß Peter

[Harry Stahl]

Die Fehlermeldung kommt dann aus dem DragDropEvent.

Da musst Du es wie folgt machen:

Item:= TTreeViewItem(Sender);

Denn da ist der Sender nicht der TTreeview sondern das Item selbst.

[jaenicke]

Um sicherzugehen wäre auch ein sicherer Cast sinnvoll:

Delphi-Quellcode:

Item := Sender as TTreeViewItem;
// Zumindest wenn es unerklärliche Fehler gibt zum Debuggen

Dann wäre die Meldung deutlich verständlich gewesen.

Zeitkritisch ist die Stelle ja nicht, deshalb würde ich dort gar keine harten Casts machen.

[Peter-Pascal]

Danke für eure Antworten.
Ich habe es jetzt umgebaut:

Delphi-Quellcode:

procedure TFormViewZuordnen.ListViewZuordnenMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single);
var
  Svc: IFMXDragDropService;
  DragData: TDragObject;
  Item: TListViewItem;
  List: TListView;
begin
  if (SsLeft in Shift) then
  begin
    List:= Sender as TListView;
    Item:= TListViewItem(List.Selected);
    if Assigned(Item) and TPlatformServices.Current.SupportsPlatformService(IFMXDragDropService, Svc) then
    begin
      log('Ich werde gezogen ' + sender.ClassName + ' ' + Item.Text);
      DragData.Source:= Item;
      DragData.Data:= Item.TagObject;
      Svc.BeginDragDrop(Self, DragData, Image2.Bitmap);
    end;
  end;
end;

procedure TFormViewZuordnen.TreeViewEBilanzDragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF);
var
  Item: TTreeViewItem;
begin
  log('DragDrop');
  item:= (Sender as TTreeViewItem).ItemByPoint(Point.X, Point.y);
//  Item:= TTreeView(Sender).ItemByPoint(Point.X, Point.y);
  log(Item.Text);
end;

procedure TFormViewZuordnen.TreeViewEBilanzDragOver(Sender: TObject; const Data: TDragObject; const Point: TPointF;
  var Operation: TDragOperation);
var
  Item: TTreeViewItem;
begin
//  TTreeView(Sender).Selected:= TTreeView(Sender).ItemByPoint(Point.X, Point.y); //Funktioniert, zeigt wunderbare blaue Balken
  Operation:= TDragOperation.Copy
end;

Die Funktion TreeViewEBilanzDragDrop wird offensichtlich nicht aufgerufen.
Das Mausziehen wird jetzt korrekt ausgeführt und ins Log eingetragen, aber aus der Funktion DragDrop kommt nichts ins Log.

Ich habe auch verschiedene Schalter ausprobiert beim Baum. AllowDrag:= True oder False

Gruß Peter

[Harry Stahl]

DragDrop müsste jedenfalls so lauten:

Delphi-Quellcode:

procedure TFormViewZuordnen.TreeViewEBilanzDragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF);
var
  Item: TTreeViewItem;
begin
  log('DragDrop');
  item:= (Sender as TTreeViewItem); //.ItemByPoint(Point.X, Point.y);
// Item:= TTreeView(Sender).ItemByPoint(Point.X, Point.y);
  log(Item.Text);
end;

Wenn das immer noch nicht funktioniert: Mach doch bitte mal ein kurzes Demo (also die Listview mit Items drin (und Treeview mit Items) und mit den hier gezeigten Events) und lade es hier (ohne Exe) einmal hoch.

[Peter-Pascal]

Danke Harry für die schnelle Antwort und Dein Angebot sich ein Demo anzuschauen.

Leider klappt es immer noch nicht. Das Demo mache ich fertig und stelle es ein. Vermutlich nur eine Bagatelle, wie ich mich kenne.

Vorab eine Frage:

item:= (Sender as TTreeViewItem); //.ItemByPoint(Point.X, Point.y); Ich hätte jetzt gedacht, dass der Sender TTreeView ist und nicht das Item?

Bislang glaubte ich das zwischen Sender as TTreeViewItem und TTreeViewItem(sender) kein Unterschied ist.

Gruß Peter

[peterbelow]

Zitat von Peter-Pascal:

Vorab eine Frage:

item:= (Sender as TTreeViewItem); //.ItemByPoint(Point.X, Point.y); Ich hätte jetzt gedacht, dass der Sender TTreeView ist und nicht das Item?

Bislang glaubte ich das zwischen Sender as TTreeViewItem und TTreeViewItem(sender) kein Unterschied ist.

Gruß Peter

Ein "as" typecast erzeugt eine Exception (EInvalidCast oder so) wenn das Objekt (Sender in diesem Fall) nicht eine Instanz der Zielklasse (oder einer Ableitung davon) ist. Ein "hard cast" macht das nicht, der Compiler nimmt da an, der Programmierer wisse schon, was er tut. Das kann unerwartete Effekte haben, wenn der Programmierer irrt...