Drag Drop ListView kurz vor Verzweifelung

[marabu]

Hallo,

wahrscheinlich ist das keine schlechte Idee, wenn du ein wenig Quellcode zeigst, denn ich vermute, dass du das Phänomen mit deinem eigenen Code verursachst. Einfach zwei ListViews auf eine Form gezogen und ViewStyle = vsReport und DragMode = dmAutomatic und man erkennt, dass die Markierung eigentlich nicht bleibt:

Delphi-Quellcode:

procedure TDemoForm.ListViewDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := (Sender <> Source)
        and (Sender is TListView)
        and (Source is TListView);
  if Accept then
    with Sender as TListView do
      Accept := Assigned(GetItemAt(X, Y));
end;

Grüße vom marabu