DragDrop mit TTreeViewItem als Ziel

[Peter-Pascal]

Hallo,
ich plage mich mit dem Versuch aus einem TListView Informationen zu einem TTreeViewItem in einem TTreeView zu ziehen und leider klappt es nicht.

Das Ziehen (Drag) scheint soweit zu funktionieren:

Delphi-Quellcode:

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

Auch DragOver funktioniert:

Delphi-Quellcode:

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

Aber bei DragDrop keine Reaktion:

Delphi-Quellcode:

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

Es wird nichts im Log angezeigt, im Gegensatz zum Start. Offensichtlich wird die Funktion nicht mal ausgeführt.

Was mache ich falsch? Kann mir jemand helfen?

Danke schon mal.

Gruß Peter

[Harry Stahl]

Lass doch mal das

TTreeView(Sender).Selected:= TTreeView(Sender).ItemByPoint(Point.X, Point.y); //Funktioniert, zeigt wunderbare blaue Balken

weg. Nehme an, dass dadurch die items den Fokus erhalten, daher wird dann das Event des Treeviews nicht mehr ausgeführt.

Wenn es das nicht ist, lad mal eine demo hier hoch, damit man es konkret nachvollziehen kann.

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

[Peter-Pascal]

Danke Peter,

das heißt vom Ergebnis ist die Vorgehensweise identisch.
Jetzt verstehe ich auch was Sebastian meinte, dass ich bei einem Typcast mit as eine verständlichere Fehlermeldung bekomme.

Gruß Peter